Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

1.Напечатать ряд из n раз повторяющихся чисел.
2.Для вводных с клавиатурой произвольного количества чисел.Найти сумму и их количество .
3.Найти сумму: 1/5+1/10+1/15....+1/50

Ответ оставил Гость

Program First;
var
n, num, i : integer;

begin
write(Введите число: );
readln(num);
write(Число повторений: );
readln(n);
for i:=1 to n do write(num, );
end.


program Second;
var
num, count, summ : integer;

begin
writeln(Вводите числа. (для выхода введите число 0));
count:=0;
summ:=0;
repeat
readln(num);
if num<>0 then
begin
count:=count+1;
summ:=summ+num;
end;
until num=0;
writeln (Введено , count, чисел, на сумму , summ);
end.


program Third;
var
z : integer;
s : real;

begin
z:=5;
s:=0;
repeat
s:=s+1/z;
z:=z+5;
until z=50;
writeln (Сумма равна: , s:7:4);
end.