Регистрация
daniil8092228
12.06.2022 17:31
Информатика
Есть ответ 👍

Посчитай на языке Паскаль
1 задача
var s,k: integer;
begin
   s = 0;
   for k := 3 to 7 do
      s = s + 6;
   writeln(s);
end.
2 задача
var
a, b, n: longint;
begin
readln(n);

a := n mod 10;
n := n div 10;
while n > 0 do begin
b := n mod 10;
n := n div 10;
end;
writeln(a+b);
readln;
end.
3 задача
var a,b,c,d:integer;
begin
readln(a);
d := a mod 10;
repeat
b := a mod 10;
a := a div 10;
until a=0;
c := d+b;
writeln(c);
end.​

130
272
Посмотреть ответы 2

Ответы на вопрос:

ArtemPatsaliuk
ArtemPatsaliuk
4,6(14 оценок)

меня куча пенис роли поллй

Bbqqall
Bbqqall
4,4(33 оценок)

Это типо по строчками надо в каждой строчке команда. да?

Популярно: Информатика