Помогите переделать задачу

Tosia · 11.10.2011, 18:37

помогите переделать задачу паскаль из repeat unntil в while do

program gg;
uses crt;
var ch:char;
s:integer;
begin
repeat
read(ch);
if ch='c'then inc(s);
until ch='.';
wriite(s);
readkey;
end.

Vladimir_S · 11.10.2011, 20:07

Цитата:

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

помогите переделать задачу паскаль из repeat unntil в while do

То есть совсем по нулям? Ничего не знаем и знать не желаем, пусть дяденьки с форума за меня учатся... И не стыдно с подобной ерундой вылезать? Ну ладно, держите:

Код:

uses crt;
var
 ch:char;
 s:integer;
begin
 s:=0;
 while ch<>'.' do
  begin
   read(ch);
   if ch='c' then inc(s);
  end;
 write(s);
 readkey;
end.

11.10.2011, 18:37	#1 (permalink)
Tosia Новичок Регистрация: 11.10.2011 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите переделать задачу помогите переделать задачу паскаль из repeat unntil в while do program gg; uses crt; var ch:char; s:integer; begin repeat read(ch); if ch='c'then inc(s); until ch='.'; wriite(s); readkey; end.

11.10.2011, 18:37
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	В данных топиках может находиться важная информация Помогите переделать задачу Помогите переделать схему Помогите решить задачу) Помогите переделать программу в код паскаль,чтобы она была без классов

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