к понедельнику необходимо решить задачу на нахождение квадратов четных чисел от 0 до 20. Пожалуйста помогите с решением!
мисс_граффити
13.05.2007 18:34
цикл от 0 до 20. на каждом шаге добавляешь 2 и считаешь квадрат (функция sqr(x)) в чем проблема?
vsk
13.05.2007 21:06
проблема в том, что я в паскале полный ноль. Максимум на что я способен- это просто зазубрить решение. Чтобы получить зачет мне осталось только здать эту задачу. Если можно напишите ее решение. буду навечно благодарен.
мисс_граффити
13.05.2007 21:42
как мало нужно для вечной благодарности...
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
13.05.2007 21:48
огромное спасибо за помощь.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.