Решить до завтра: написать программы и блок-схемы: - вопрос №1199731 от kpy4 22.05.2020 05:20

Question

Информатика: Решить до завтра: написать программы и блок-схемы: 1). для различных вводимых с клавиатуры целых чисел, найдите сумму положительных чисел 2). дано положительное число а. найдите среди чисел 1, 1 + 1/2 + 1/3, первое, большеа

kpy4 · Answer

блок смемы не умею

var i:integer

s,n:real;

Begin

repeat

read(n);

if n>0 then s:=s+n

until n=0;

writeln(s);

End.

var a,s:real;

i:integer;

Begin

read(a);

repeat

i:=i+1;

s:=s+1/i

until s>a;

writeln(i,s);

End.