к понедельнику необходимо решить задачу на нахождение квадратов четных чисел от 0 до 20. Пожалуйста помогите с решением!
цикл от 0 до 20. на каждом шаге добавляешь 2 и считаешь квадрат (функция sqr(x))
в чем проблема?
проблема в том, что я в паскале полный ноль. Максимум на что я способен- это просто зазубрить решение. Чтобы получить зачет мне осталось только здать эту задачу. Если можно напишите ее решение. буду навечно благодарен.
как мало нужно для вечной благодарности...
var x: integer;
begin
x:=0;
while x<=20 do
begin
writeln('x=',x:2,' x^2=',sqr(x));
inc(x,2);
end;
readln;
end.
огромное спасибо за помощь.