Откройте свой Мир!

Регистрация Вход

Мы применяем рекомендательные технологии

« Предыдущая запись · Следующая запись »

unknown,

23-12-2010 18:49

(ссылка)

Это спам

Пожалуйста, помогите написать прогу в паскале..=)

Нравится

Написать комментарий

Рейтинг

11-02-2011 23:46 (ссылка)

Re: Пожалуйста, помогите написать прогу в паскале..=)

uses crt;
var
i,j: integer;
proizv: integer;
begin
clrscr;
i:=0;
j:=0;
proizv:=1;
writeln('Введите числа');
repeat
readln(i);
if abs(i)>j then j:=i;
proizv:=proizv*i;
until (i<=-5) and (i>=5);
writeln('Произведение =', proizv);
writeln('Число большее по модулю ', j);
readln;
end.

ответить (с цитатой)

Написать комментарий