Регистрация
briliant2
20.06.2023 09:28
Информатика
Есть ответ 👍

1. определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =0; k: =0; while s < 1024 do begin s: =s+10; k: =k+1; end; write(k); end.

126
434
Посмотреть ответы 2

Ответы на вопрос:

толя151
толя151
4,7(40 оценок)
K= 10240 напечатано будет " 10240 "
lobodapo
lobodapo
4,8(45 оценок)

Free Pascal

var

x: integer;

begin

writeln('Input x:');

readln(x);

writeln('y=', (1/(x-1)):2:2);

end.

Популярно: Информатика