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

July 2022 1 1 Report

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

Answers & Comments

Impersona1 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.

0 votes Thanks 0

Answers & Comments

zadajte vse vidy voprosov k predlozheniyu he became a doctor five years ago

reshite ururavnenie 52x 425x 10

pomogite pozhalujsta chto nuzhno ispravit chtoby programma schitala skolko chelov

pozhalujsta pomogite sostavit programmu v paskal oprashivaetsya 10 chelovek

sintaksicheskij razbor predlozheniya letit korshun nad samoj zemlyoj plavno vzmahiva

pozhalujsta kakoe vremya goda vybiral batyj dlya svoih bolshih pohodov i poch

sostavte shemu predlozheniya pozhalujsta on znal chto zavtrashnee srazhenie dolzhn

sostavte programmu trenazher tablicy umnozheniya na 8 v paskal v konce poschitat

srochno sostavte 5 zadach po fizike s uchastiem astronomicheskih tel 7 klass

pozhalujsta sochinenie miniatyura na lyubuyu temu s ispolzovaniem slov iz orfogrammy

рекомендуемые вопросы

Helpful Links

Helpful Social