bool переменная может принимать значения true и false - правда и не правда.
Логический тип данных нужен, чтобы программировать различные альтернативные действия.
результат сравнения - bool
Programm Pens;
var Year: integer;
begin
Readln ('Введите Ваш возраст:', Year);
Year := Year + 58;
Writeln('Ваш возраст выхода на пенсию: ', Year);
end;
Итак, нужно 1000000 вариантов, 4 цифры есть, это 10000 вариантов(0000 тоже возможно)
необходимо увеличить до 1000000 вариантов, для этого необходимо в 100 раз или больше увеличить. одна буква увеличит в 5 раз, две буквы в 25, 3 буквы в 125, ответ 3 буквы(5*5*5) и будет доступно 1250000 вариантов, что на 250000 больше необходимого
Var a, b: longint;
begin
write ('введите число -> ');
readln (a);
a:=a mod 10;
b:=(a*a) mod 10;
writeln ('последняя цифра квадрата числа -> ',b);
<span>end.</span>
<span>Наполним пятилитровую банку и перельем в трехлитровую, у нас останется 2 литра, выливаем их в ведро, потом перельем обратно 3 литра в пятилитровую и наполним ее доверху ну и опять перельем в трехлитровую, у нас опять останется 2 литра их выливаем в ведро. В ведре получилось 4 литра воды</span>