Ответ:
Объяснение:
var
N,K,S:integer;
begin
writeln('Введите число N>1');
readln(N);
K:=1;S:=0;
while S<N do
begin
S:=S+K;
K:=K+1;
end;
Writeln('K=',K-1,' Сумма: ',S);
end.
Vari, max, y: integer;
begin
Writeln('Вводите последовательно числа.');
Writeln('Для завершения ввода введите ноль.');
Writeln('----------------------');
max := 0;
y := 0;
repeat
y := y + 1;
write(y, ' число:');
readln(i);
if (y = 1) then max := i;
if (i = 0) then break;
if (i > max) then max := i;
until i = 0;
Writeln('----------------------');
Writeln('Максимальное число: ', max);
Writeln();
end.
Program plowad;
var a,s:real
;begin
readln(a);
s:=a*2;
writeln(s)
end.
float a = 5.f, b = 0.15f, sum = 0.f;
size_t N;
cin >> N;
for (size_t i = 0; i < N; ++i)
{
sum += (a + b);
}
cout << sum;
выберите тот рисунок, который вам необходим: