Пожалуйста,помогите! Срочно! В ПАСКАЛЕ:1) найти количество положительных целых чисел от 45 до 215; 2) Найти сумму положительных целых чисел от -50 до 200, кратных 5 и 8; 3) Найти сумму и количество отрицательных четных целых чи...

Пожалуйста,помогите! Срочно! В ПАСКАЛЕ:1) найти количество положительных целых чисел от 45 до 215; 2) Найти сумму положительных целых чисел от -50 до 200, кратных 5 и 8; 3) Найти сумму и количество отрицательных четных целых чисел, введенных с клавиатуры. Печать результата по вводу числа 0.
Гость
Ответ(ы) на вопрос:
Гость
//Приунываю //Pascal ABC.NET v3.1 сборка 1172 //1 begin  writeln(215-45+1); end. //2 Var  i,s:integer; begin  for i:=-50 to 200 do    if (i mod 5=0) and (i mod 8=0) and (i>0) then s:=s+i;  writeln(s); end.  //3 Var  i,s,a:integer; begin a:=1;  repeat   if (a<0) and (a mod 2=0) then    begin     inc(i);     s:=s+a;    end;   read(a);  until a=0; writeln('Sum=',s,' and number=',i); end.  
Не нашли ответ?
Ответить на вопрос
Похожие вопросы