помогите с программой в Паскаль)
1. Пользователю необходимо ввести два числа. Если сумма этих чисел положительная, найти произведение, в противном случае, найти частное этих чисел. В каждом случае программа комментирует свои действия.
2. Пользователь вводит число (свою температуру). Если оно больше 36,8 или меньше 36,4, то программа пишет «Оставайся дома». В противном случае пишет «иди в школу».
1. Пользователю необходимо ввести два числа. Если сумма этих чисел положительная, найти произведение, в противном случае, найти частное этих чисел. В каждом случае программа комментирует свои действия.
2. Пользователь вводит число (свою температуру). Если оно больше 36,8 или меньше 36,4, то программа пишет «Оставайся дома». В противном случае пишет «иди в школу».
More Questions From This User See All
Answers & Comments
Ответ:
program n1;
var q,w:integer;
begin
writeln('введите первое число');
readln(q);
writeln('введите второе число');
readln(w);
if q+w>0 then begin
writeln('сумма чисел больше нуля');
write(q*w);
end
else begin
writeln('сумма чисел меньше нуля');
write(q/w)
end;
end.
Объяснение: