Помощь - Поиск - Пользователи - Календарь
Полная версия: нужна срочная помощь!
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
vsk
к понедельнику необходимо решить задачу на нахождение квадратов четных чисел от 0 до 20. Пожалуйста помогите с решением!
мисс_граффити
цикл от 0 до 20. на каждом шаге добавляешь 2 и считаешь квадрат (функция sqr(x))
в чем проблема?
vsk
проблема в том, что я в паскале полный ноль. Максимум на что я способен- это просто зазубрить решение. Чтобы получить зачет мне осталось только здать эту задачу. Если можно напишите ее решение. буду навечно благодарен.
мисс_граффити
как мало нужно для вечной благодарности... blink.gif

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.
vsk
огромное спасибо за помощь. good.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.