№1. Ниже приведена программа, записанная на пяти языках программирования. алг
нач
цел s, t
ввод s
ввод t
если s > 9 или t > 9
то вывод "YES"
иначе вывод "NO"
все
кон
Сколько было запусков, при которых программа напечатала «NO»?
№2. Ниже приведена программа, записанная на пяти языках программирования.
алг
нач
цел s, t
ввод s
ввод t
если s < 9 или t < 9
то вывод "YES"
иначе вывод "NO"
все
кон
Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(9, 9); (9, 10); (8, 5); (11, 6); (–11, 10); (–5, 9); (–10, 10); (4, 5); (8, 6).
Сколько было запусков, при которых программа напечатала «YES»?
№3. Ниже приведена программа, записанная на пяти языках программирования.
алг
нач
цел s, t
ввод s
ввод t
если s < 6 или t < 6
то вывод "YES"
иначе вывод "NO"
все
кон
Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(6, 4); (7, 8); (8, 5); (5, 6); (–11, 10); (–5, 7); (–2, 2); (4, 5); (8, 6).
Сколько было запусков, при которых программа напечатала «YES»?
№4. Ниже приведена программа, записанная на пяти языках программирования.
алг
нач
цел s, t
ввод s
ввод t
если s < 10 или t < 10
то вывод "YES"
иначе вывод "NO"
все
кон
Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(6, 4); (7, 8); (8, 5); (5, 6); (11, 10); (–5, 7); (–2, 2); (4, 5); (8, 6).
Сколько было запусков, при которых программа напечатала «YES»?

Показать ответ

Ответ:

lelyashramkop028pw

11.04.2023 04:01

Program zadacha;vara: array[1..1000] of integer;i,n,sum_pol,sum_otr: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);for i:=1 to n do begina[i]:=random(1000)-500;write(a[i]:6);end;
sum_pol:=0;sum_otr:=0;for i:=1 to n do beginif a[i]>0 then sum_pol:=sum_pol+a[i];end;writeln();writeln('udvoennaya summa polojit. chisel = ', sum_pol*2);
for i:=1 to n do beginif (a[i]<0) and (i mod 2 <> 0) then sum_otr:=sum_otr+a[i];end;
writeln('summa otricat. i nechetn. chisel = ', sum_otr);end.
Дан одномерный массив, получить удвоенную сумму всех положительных членов массива и найти сумму чисе

Дан одномерный массив, получить удвоенную сумму всех положительных членов массива и найти сумму чисе

0,0(0 оценок)

Ответ:

3ТОН

25.09.2020 11:40

Блок-схема - в прилагаемом файле. Программа:
const n=20;
var a:array[1..20] of integer;
i,k2,k3,k4,k5:integer;
begin
Randomize;
writeln('Оценки:');
for i:=1 to n do begin
a[i]:=random(4)+2;
write(a[i],' ');
end;
writeln;
k2:=0;k3:=0;k4:=0;k5:=0;
for i:=1 to n do
case a[i] of
2: k2:=k2+1;
3: k3:=k3+1;
4: k4:=k4+1;
5: k5:=k5+1;
end;
writeln('Двоек: ',k2);
writeln('Троек: ',k3);
writeln('Четверок: ',k4);
writeln('Пятёрок: ',k5);
end.

Пример:
Оценки:
3 5 3 2 5 3 2 5 3 4 4 5 2 3 3 4 4 2 2 5
Двоек: 5
Троек: 6
Четверок: 4
Пятёрок: 5
Вклассе 20 учеников писали диктант по языку. напишите программу и начертите к ней блок-схему, подсчи