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

[Tosia]

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

помогите переделать задачу паскаль из 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]

помогите переделать задачу паскаль из 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.