Вопрос школьника по предмету Информатика
Срочно
Помогите пожалуйста
Написать программу на языке программирования Паскаль
1)зная температуру воздуха ,определить вид осадков (дождь или снег)
2)найдите сумму цифр заданного трехзначного числа
3)если первое число больше второго ,то определить квадрат меньшего числа ,а в противном случае — произведение чисел
Ответ учителя по предмету Информатика
Var
t:integer;
Begin
Write(‘Введите температуру воздуха: ‘);ReadLn(t);
if t > 0 then Write(‘Дождь’)
else Write(‘Снег’)
End.
Var
A:integer;
Begin
Write(‘Введите трёхзначное число: ‘);ReadLn(A);
A:=Abs(A);
WriteLn(A div 100,’+’,(A div 10) mod 10,’+’,A mod 10,’ = ‘,A div 100+(A div 10) mod 10+A mod 10);
End.
Var
A,B:integer;
Begin
Write(‘Введите два числа: ‘);ReadLn(A,B);
if A>B then Write(‘Квадрат меньшего: ‘,B*B)
else Write(‘Произведение чисел: ‘,A*B)
End.
Похожие вопросы от пользователей
Трава едва всходила, Опредилите род глаголов : м.р, ср.р, ж.р
Ручьи текли,не парил зной,
И зелень рощ сквозила.
Всем, кто читает это, желаю добра)))
Срочно нужно сочинение на казахском языке… На тему моё хобби… Я очень люблю фотографировать, по этому мне нужно написать сочинение на эту тему… Кто может? Только пожалуйста без переводчика, так как делает ОГРОМНЕЙШИЕ ошибки! Кто может, пожалуйста, помогите… Завтра сдаём зачёт… Заранее огромное человеческое спасибо!
Надеюсь, что найдутся добрые люди…
P. S. Не всегда понимаю о чём речь в тексте… Прошу с переводом…