Помогите решить.паскаль1)найти сумму целых двузначных чисел. 2)найти произведение целых чисел от 3 до n
Помогите решить.паскаль1)найти сумму целых двузначных чисел.
2)найти произведение целых чисел от 3 до n
Гость
Ответ(ы) на вопрос:
Гость1) var a,b,s :real;
begin
readln(a,b);
s:=a+b;
write(s);
end.
2)несовсем понятно
var a,n,i:integer;
begin
readln(n);
for i:=1 to n do
begin
a:=3*i;
write(a);
end; end.
Не нашли ответ?
Похожие вопросы