Pascal
Вводится число. Если оно положительное, то уменьшить его в 10
раз

Program prog1;
var
num:integer;
begin
read(num);
if num>0 then
num:=num-10;
end.

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку