Регистрация
vindi1
02.10.2022 11:47
Информатика
Есть ответ 👍

Ниже приведена программа, записанная на языке программирования Паскаль.

var s, t: integer;
begin
readln(s);
readln(t);
if (s<6) or (t>10)
then
writeln('ДА')
else writеln('НЕТ')
end.

Было проведено 9 запусков программы, при которых в качестве значений переменных вводились следующие пары чисел (s, t): (6, 12); (4, 10); (2, 14); (-8, 12); (9, 3); (6, 10); (3, -14); (9, 14); (3, 12). Сколько было запусков, при которых программа напечатала «НЕТ»?

202
268
Посмотреть ответы 1

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

romanchuzhekov
romanchuzhekov
4,6(95 оценок)
// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin var eps : = 0.001; var (s,tmp): = (1.0,0.0); var i : = 1; var k : = 2.0; var (a, fib): = (1,2); while (abs(s-tmp) > eps)do   begin       tmp: = s;       s+= k / (fib * 3**i );       inc(i); k: = (abs(k) + 2)*k/abs(k); k *= -1;             (a,fib) : = (fib, a + fib);   end;   writeln(s); end.

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