Ниже записан алгоритм. укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала - id885774220210422 от myyllaas 22.04.2021 11:42

Question

Информатика: Ниже записан алгоритм. укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 2. var x, a, b, c: longint; begin readln(x); a: = 0; b: = 0; while x 0 do begin c: = x mod 2; if c = 0 then a: = a + 1 else b: = b + 1; x: = x div 8; end; writeln(a); writeln(b); end. ответ 4097 объясните как решить

myyllaas · Accepted Answer

1)

var sum, number, n: integer;
begin
sum := 0;
number := 1;
write('Введите n: ');
readln(n);
while (number <= n) do
begin
sum := sum + number;
number := number + 2;
end;
write('Сумма равна ', sum);
end.

2)

var prod, number, n: integer;
begin
prod:= 1;
number := 3;
write('Введите n: ');
readln(n);
while (number <= n) do
begin
prod := prod * number;
number := number + 3;
end;
write('Произведение равно ', prod);
end.

3)

var number, n: integer;
begin
number := 1;
write('Введите n: ');
readln(n);
writeln('Таблица:');
while (number <= n) do
begin
writeln(number:5, number*number:5, number*number*number:5);
number := number + 1;
end;
end.

MOGZ ответил