Алгоритмический язык алг
нач
цел s, k
Ввод 8
ввод k
если 8 }= 2 * k
то вывод "ДА"
Иначе вывод "НЕТ"
все
Было проведено 9 запусков программы, при которых в
качестве значений
переменных ѕи k вводились следующие пары чисел:
(1,2); (8, 4); (6,-12); (-5,-5); (3, 11); (-10, 12); (-10,-
2); (4,1); (2,5).
Сколько было запусков, при которых программа
напечатала «ДА»?
кон
Алгоритмический язык
алг
нач
s, k
Было проведено 9 запусков программы, при которых в
качестве значений
переменных ѕиk вводились следующие пары чисел:
(2, 2); (5,9); (7,-12); (5,5); (2, 12); (-10,-13); (-11, 11);
(1, 4); (2, 6). Сколько
было запусков, при которых программа напечатала
«ДА»?
цел
Ввод ѕ
Ввод k
если s > 5 или k > 5
то вывод "ДА"
иначе вывод "НЕТ"
все
кон
​

1)var
n:longint;
begin
readln(n);
if n mod 5=0 then writeln('Число N является кратным чилслу 5')else
writeln('Чило N не является кратным числу 5' );
end.
2)
var
a,b,c:longint:
begin
readln(a,b,c);
if (a+b)div 2=c then writeln('Число C является средним арефметическим чисел A и B') else writeln(' Число C является средним арефметическим чисел A и B') else writeln('Число C не является средним арефметическим чисел A и B ');
end.
3)
var
a:longint;
begin
write('Сколько вам лет?');
readln(a);
if a<14 then write('Вам еще рано получать паспорт?') else write('Поздравляю! Вы гражданин России!');
end.
4)
var
a:extended;
begin
readln(a);
if (a>36)and(a<37) then writeln('Вы здоровы') else writeln('Вы больны');
end.

1)var
n:longint;
begin
readln(n);
if n mod 5=0 then writeln('Число N является кратным чилслу 5')else
writeln('Чило N не является кратным числу 5' );
end.
2)
var
a,b,c:longint:
begin
readln(a,b,c);
if (a+b)div 2=c then writeln('Число C является средним арефметическим чисел A и B') else writeln(' Число C является средним арефметическим чисел A и B') else writeln('Число C не является средним арефметическим чисел A и B ');
end.
3)
var
a:longint;
begin
write('Сколько вам лет?');
readln(a);
if a<14 then write('Вам еще рано получать паспорт?') else write('Поздравляю! Вы гражданин России!');
end.
4)
var
a:extended;
begin
readln(a);
if (a>36)and(a<37) then writeln('Вы здоровы') else writeln('Вы больны');
end.