Информатики, очень нужна ваша помощь, ибо я вообще тут ничего не понимаю)) ​

Question

Информатики, очень нужна ваша помощь, ибо я вообще тут ничего не понимаю)) ​

---

Answer 1

Ответ:

4.

program zadanie4;

var

 a,b, k: integer;

begin

  writeln('Введите число a=');

  readln(a);

  writeln('Введите число b=');

  readln(b);

  for k := a to b do

  writeln(k, ' ^2=  ', sqr(k);

end.

5.

program zadanie5;

var  i,b,a,s: integer;

writeln('a=');

readln(a);

writeln('b=');

readln(b);

begin  

readln(b);

s:=0;

for i:= a to b do

S:=s+i*i;

write(s);  

end.

Объяснение:

Comments

в 5 я немного не уверенна, но должно быть правильно

---

Спасибо)