ПОЖАЛУЙСТА!!!!!! Составить программу в паскальОпрашивается 10 человек. Сколько человек

ПОЖАЛУЙСТА!!!!!!
Составить программку в паскаль
Опрашивается 10 человек. Сколько человек обожают мороженое? Сделать с подмогою оператора цикла

Задать свой вопрос
1 ответ
Program morojenka;
var i,s:integer;t:string;
begin
s:=0;
for i:=1 to 10 do 
begin 
Writeln('Любите ли вы мороженое?(Введите "Да" либо "Нет")'); 
Readln(t); 
if t='Да' then s:=s+1; end;
Writeln(s,' обожают мороженое')
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт