Var
p, num: integer;
begin
p := 1;
while p <= 1000 do
begin
read(num);
p := p*num;
end;
writeln(p);
end.
Мы получаем это делением на два и записываем остатки
- не использовать знаки ? / и некоторые др.
- длина имени не более 20 символов
- имя файла отражает содержимое
Как-то так
алг
нач
цел н
ввод н
вывод н * (н + 1) / 2
кон
<u>Ответ: С</u>
т.к.
a:=40;
b:=6;
a:=div(a,b), т.е. a/b, div берёт целую часть от деления, 40/6=6 - целая часть
b:=a*b; b:=6*6=36;
a:=div(b,a); a:=36/6=6;
Ответ:
a:=6;
b:=36