Вопрос школьника по предмету Информатика
Дано трёхзначное число. Что больше количество сотен или единиц? Паскаль. Составить программу
Ответ учителя по предмету Информатика
Var
A,B:integer;
Begin
Write(‘Введите трёхзначное число: ‘);
ReadLn(A);
B:=A div 100;
A:=A mod 10;
if B>A then WriteLn(‘Количество сотен больше’)
else if B<A then WriteLn(‘Количество единиц больше’)
else WriteLn(‘Количества сотен и единиц равны’)
End.
Похожие вопросы от пользователей
17 ×[]=272
Люди, не порывающие связь с природой, не чувствуют себя одинокими. Идут годы, но по-прежнему раскрыт перед ними преображённый, прекрасный мир. По-прежнему над головою усталого путника, прилёгшего отдохнуть, колышутся белые и золотые цветы, а высоко в небе кружит, высматривая добычу, ястреб.
Отлежавшись в пахучей траве, мягкой и нежной, полюбовавшись золотыми облаками, застывшими в синем небесном океане, с новыми силами поднимаюсь с тёплой родимой земли. Возвращаюсь домой навстречу новым трудовым дням бодрым и обновлённым. От реки, ещё не согретой солнцем, поднимается туманная завеса, но впереди ожидание чего-то светлого, чистого, прекрасного.
Ни с кем не хочется говорить, так и шёл бы по родной земле, ступая босыми ногами по росе и чувствуя её тепло и свежесть.
ПОМОГИТЕ С РУССКИМ. Определите тип односоставных простых предложений, в том числе в составе сложных: 3-4 абзацы