gdz.top
Страница 181 - гдз по информатике 8 класс учебник Босова, Босова
Авторы: Босова Л. Л., Босова А. Ю.
Тип: Учебник
Издательство: Просвещение
Год издания: 2023 - 2025
Уровень обучения: базовый
Цвет обложки: синий с котом
ISBN: 978-5-09-102543-9 (2023)
Допущено Министерством просвещения Российской Федерации
Популярные ГДЗ в 8 классе
Cтраница 181
Страница 180
№14 (с. 181)
Условие. №14 (с. 181)
14. Напишите программу, в которой пользователю предлагается дополнить до 100 некоторое целое число а (а - случайное число, меньшее 100). Ответ пользователя проверяется и комментируется.
Решение. №14 (с. 181)
var
a,b: integer;
begin
randomize;
a:=random(100);
writeln ('a=',a);
b:=100-a;
writeln ('Надо дополнить на ', b);
if a+b=100 then writeln ('Верно a+b=', a+b)
else writeln ('Неверно a+b=', a+b);
end.
№15 (с. 181)
Условие. №15 (с. 181)
15. С помощью программы сравните тройки слов и сделайте выводы о том, как происходит сравнение: KAWAI – Kawai - kawai, информатика – информатика - информатикА, 50_кг – 50_kg – 200_кг, яблоко – яблоки – яблоня.
Решение. №15 (с. 181)
var
a,b,c: string;
begin
writeln ('Введите три слова');
readln (a, b, c);
if (length(a)>length (b)) and (length(a)>length (c))
then writeln ('Слово самое большое ', a)
else
if (length(b)>length (a)) and (length(b)>length (c))
then writeln ('Слово самое большое ', b)
else
if (length(c)>length (a)) and (length(c)>length (a))
then writeln ('Слово самое большое ', c)
else writeln ('Все слова равны');
end.
№16 (с. 181)
Условие. №16 (с. 181)
16. Напишите программу, моделирующую работу исполнителя Автомат, который получает на вход трёхзначное натуральное число и строит новое число следующим образом:
1) вычисляет суммы первой и второй, затем второй и третьей цифр;
2) выводит полученные суммы в порядке неубывания.
Например, для числа 125 будут получены суммы: 1+2 = 3, 2 + 5=7. Результат: 37.
Решение. №16 (с. 181)
var
a,b,c, d, s1, s2: integer;
begin
writeln ('Введите трехзначное число');
readln (a);
b:= a div 100;
c:= (a mod 100) div 10;
d:= a mod 10;
s1:=b+c;
s2:=c+d;
if s1>s2 then
writeln (s2, s1)
else writeln (s1, s2);
end.
№17 (с. 181)
Условие. №17 (с. 181)
17. Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8. Напишите программу, которая по введённым координатам двух полей (k, 1) и (m, n) определяет, имеют ли эти поля один цвет. Для проверки правильности программы используйте тест:
| Входные данные | Выходные данные |
| Координаты 1-ого поля>>2 2 Координаты 2-ого поля>>3 3 | Поля одного цвета |
| Координаты 1-ого поля>>2 3 Координаты 2-ого поля>>3 3 | Поля разного цвета |
| Координаты 1-ого поля>>2 7 Координаты 2-ого поля>>5 4 | Поля одного цвета |
Решение. №17 (с. 181)
var
k, l, m, n: integer;
begin
write ('Координаты 1-ого поля >> ');
readln (k, l);
write ('Координаты 2-ого поля >> ');
readln (m, n);
if (k+l+m+n) mod 2 = 0 then
writeln ('Поля одного цвета ')
else
writeln ('Поля разного цвета ');
end.
Помогло решение? Оставьте отзыв в комментариях ниже.