Определите значение переменной c после выполнения сле¬ду¬ю¬щей программы:
var a, b, c: integer;
begin
a:= 50;
b:= 10;
a:= a – b * 3;
if a < b then c:= a - b else c:= b - a;
writeln (c);
end.
2. Запишите зна¬че¬ние переменной s, по¬лу¬чен¬ное в ре¬зуль¬та¬те работы сле¬ду¬ю¬щей программы:
var s, k: integer;
begin
s := 0;
for k := 1 to 8 do
s := s + 7;
writeln (s);
end.
3. Ниже приведена программа:
var s,t: integer;
begin
readln(s);
readln(t);
if (s > 10) or (t > =10)
then writeln ("ДА")
else writeln ("НЕТ")
end.
Было проведено 8 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(11, 2); (1, 12); (11, 12); (–11, –12); (–11, 12); (–12, 11); (10, 10); (10, 5).
Сколько было запусков, при которых программа напечатала «ДА»?
4. Составьте программу нахождения суммы первых 15 натуральных чисел.
203
488
Ответы на вопрос:
Чётные: 6,12,18,452,398 нечётные числа: 771,11,5,29,9,13,99,53 однозначные числа: 6,5,9, двузначные числа: 12,18,11,29,13,99,53 трёхзначные числа: 771,452,398 четные однозначные числа: 6, четные двузначные числа: 12,18,
Популярно: Информатика
-
Katya1750724.03.2021 04:50
-
leratyurina01.02.2022 17:31
-
omarova430.08.2021 10:21
-
lenalime30.04.2022 20:53
-
Bro122124.09.2020 03:13
-
panda06808.04.2020 16:09
-
nastushka16200315.07.2020 09:26
-
Shimkent30.04.2022 03:26
-
F1Na1Ik31.07.2021 13:45
-
dinka182013.12.2020 07:50