Что надо делать там вапросы ???
Var i, pr: Integer; n: String;
Begin
readln(n);
pr := 0;
for i := 1 to length(n) do
if n[i] = ',' then pr := 1;
if pr = 1 then write('Такой символ есть') else write('Такого символа нету');
End.
Озорничали... Писать задачу они могли и так, с открытой дверью. Смотрели телевизор, тоже может быть, но ведь с открытой дверью не все рискнут по хулиганить...))))
Но кстати и задачу тоже могли... Ведь подсказывать нехорошо... Но я за "озорничали"
Var a,s :integer;
begin
a:=0;
s:=0;
repeat
a:=a+1;
if a mod 2 = 0 then
s:=s+1;
until
a=234;
writeln('кол-во четных чисел : ',s)
end.
Ответ:Ахах, мы что должны по рисунку определять, какие он там команды удалил? Код программы скинь
Объяснение: