Помоги решить, программа Паскаль
1. для чисел равных 5 от 1 до N вывести квадрат числа,для остальных вывести "не кратно 5"
2.посчитать сколько из 15 произвольно веденных чисел,чисел больше 15
3. для любого количества произвольных чисел найти сумму положительных

1

Ответы и объяснения

2013-10-10T21:14:04+00:00
{Кратность 5ти}
var i, i1: integer;
begin     
 readln(i1);     
 for i:=0 to i1 do         
 if (i mod 5 = 0) then           
  writeln(i, ': ', sqr(i))         
 else             
  writeln(i, ': не кратно пяти');
end.
--------------------------------------------------
{ Больше 15-ти }
var i, b, c: integer;
begin     
for i:=1 to 15 do     
begin         
readln(b);         
if (b > 15) then             
c := c + 1;     
end;     
writeln(c);
end.
------------------------------
const N=5; //Любое кол-во:)
var a: real;   
i, count: integer;
begin     
for i:=0 to N-1 do     
begin         
readln(a);         
if (a > 0) then             
count := count + 1;     
end;     
writeln(count);
end.