3) количество бит соответствует количеству вопросов.
ответ: 5 вопросов.
Ответ дал: Гость
var a,b,c,d: integer;
begin
writeln ('vvedite a');
read(a);
writeln ('vvedite b');
read(b);
writeln ('vvedite c');
read(c);
writeln ('vvedite d');
read(d);
if (a> b) and (a> c) and (a> d) then writeln('samoe bolshoe chislo - a')
else writeln('a ne samoe bolshoe');
end.
Ответ дал: Гость
6, понедельник, иа, 1, на печи,клюв, царь, марка, гласных 10, согласных 21, всего 33
Ответ дал: Гость
: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’); write (‘n=’); readln (n);
: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’); write (‘n=’); readln (n); i: =1; s: =0; repeat s: =s+i; i: =i+1; until i> n; writeln (‘s=’,s);
Популярные вопросы