Написать программу:
Ввести целое число. Если оно является положительным, то умножить его на 3; в противном случае вычесть из него 100. Вывести полученное число.
Ответы на вопрос
Ответил fovfabomi
1
pascal
var a:integer;
begin
writeln('введите целое число');
readln(a);
if a>0 then a:=a*3 else a:=a-100;
writeln(a);
end.
turdibekoff:
то ю
хз
var a:integer;
begin
writeln('введите целое число');
readln(a);
if a>0 then a:=a*3 else a:=a-100;
writeln(a);
end.
begin
writeln('введите целое число');
readln(a);
if a>0 then a:=a*3 else a:=a-100;
writeln(a);
end.
сама программу
у нас тема оператор выбора
работаем через Python
а у меня паскаль
в следующий раз в задании пиши язык программирования
поможешь через python ?
я его не знаю
Новые вопросы