6. Шестиклассник очень торопился, когда печатал ответ на вопрос онлайн-викторины «Кто составил самую первую в мире программу?», и допустил много ошибок:
Агn Авгцста Давлецс.
Увидев это, одноклассница не вытерпела и взялась исправлять. Курсор мигал в конце строки.
Она последовательно нажала на клавиши клавиатуры:
и , BackSpace, й, 8 , , , , , , Del, Л, 8 , , , , ,
BackSpace, y, Home, , Del, Del, да
Что у нее получилось?
program z1;
var a,m:integer;
begin
write('Введите трёхзначное число: ');
readln(a);
m:=a mod 10;
if a div 100 < m then m:=a div 100;
if a div 10 mod 10 < m then m:=a div 10 mod 10;
write('Минимальная цифра числа: ',m)
end.
Объяснение:
div - результат целочисленного деления
mod - остаток от целочисленного деления
Вводим число
Присваиваем переменной m значение последней цифры числа
Сравниваем переменную m с первой цифрой числа, если первая цифра числа меньше переменной m, то присваиваем переменной m значение первой цифры числа
Сравниваем переменную m со второй цифрой числа, если вторая цифра числа меньше переменной m, то присваиваем переменной m значение второй цифры числа
Выводим переменную m
1) Число 376 четное и трехзначное.
А = "Число 376 четное"
В = "Число 376 трехзначное"
А и В
2) Неверно, что Солнце движется вокруг Земли.
А = "Солнце движется вокруг Земли"
Не А
3) Земля имеет форму шара.
А = "Земля имеет форму шара"
А
4) На уроке математики старшеклассники отвечали на вопросы учителя и писали самостоятельную работу.
А = "На уроке математики старшеклассники отвечали на вопросы учителя"
В = "На уроке математики старшеклассники писали самостоятельную работу"
А и В
5) Если сумма цифр числа делится на 3, то число делится на 3.
А = "Сумма цифр числа делится на 3"
В = "Число делится на 3"
А стрелка к В
6) Число делится на 3 тогда и только тогда, когда сумма цифр числа делится на 3
А = "Число делится на 3 "
В = "Сумма цифр числа делится на 3"
А стрелка в обе стороны В