Блок-схема 2

kasper182 · 12.12.2012, 14:41

program zadacha_1;
Uses CRT;
var s:string;
i,k:byte;
Begin
write ('Vvedite stroky: ');readln(s);
For i:=1 to Length (s)-1 do
if s[i]=s[i+1] then
Begin
writeln(s[i],s[i+1]);
inc (k);
end;
writeln ('count= ',k);
readln;
End.

kasper182 · 12.12.2012, 17:03

Блок-схема 2

Léon · 12.12.2012, 19:30

Цитата:

Сообщение от kasper182

Блок-схема 2

Вот:...........

12.12.2012, 14:41	#1 (permalink)
kasper182 Member Регистрация: 16.11.2012 Сообщений: 26 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Блок-схема 2 program zadacha_1; Uses CRT; var s:string; i,k:byte; Begin write ('Vvedite stroky: ');readln(s); For i:=1 to Length (s)-1 do if s[i]=s[i+1] then Begin writeln(s[i],s[i+1]); inc (k); end; writeln ('count= ',k); readln; End.

12.12.2012, 14:41
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Другие темы, созданные на форуме могут помочь решить ваш вопрос Блок-схема Блок-схема Блок-схема Блок-схема. Паскаль Блок-схема в Qbasic Нужна блок-схема

12.12.2012, 17:03	#2 (permalink)
kasper182 Member Регистрация: 16.11.2012 Сообщений: 26 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Блок-схема 2

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070