Предмет: Информатика,
автор: IIIKOJIHIK
Помогите решить в паскале задачи 2,3,4
Приложения:
Ответы
Автор ответа:
1
2)
var x:integer;
begin
readln(x);
if x mod 2=0 then writeln('Число четное')
else writeln('Число нечетное');
end.
Пример:
15
Число нечетное
3)
var x:integer;
begin
readln(x);
if x>0 then writeln('У вас ',x,' рублей')
else writeln('счет пуст');
end.
Пример:
15
У вас 15 рублей
4)
var x:integer;
begin
readln(x);
if x>0 then writeln('Число положительное')
else writeln('Число отрицательное');
end.
Пример:
15
Число положительное
var x:integer;
begin
readln(x);
if x mod 2=0 then writeln('Число четное')
else writeln('Число нечетное');
end.
Пример:
15
Число нечетное
3)
var x:integer;
begin
readln(x);
if x>0 then writeln('У вас ',x,' рублей')
else writeln('счет пуст');
end.
Пример:
15
У вас 15 рублей
4)
var x:integer;
begin
readln(x);
if x>0 then writeln('Число положительное')
else writeln('Число отрицательное');
end.
Пример:
15
Число положительное
IIIKOJIHIK:
Спасибо огромное
Пожалуйста. Пользуйтесь кнопочкой "Спасибо".
Интересные вопросы
Предмет: Литература,
автор: sariklicheva
Предмет: Математика,
автор: openmakar
Предмет: Английский язык,
автор: shahzodaabdullaeva20
Предмет: Математика,
автор: jermilova92
Предмет: Обществознание,
автор: Александра0121