1. Информатика
  2. Составь и запиши программу на

Составь и запиши программу на языке Паскаль, которая, если введенное число отрицательное и кратно 4, меняет его на противоположное.
Дано целое двухзначное число. Вывести на экран "Первое больше", если цифра десятков больше цифры единиц решается четвертная и годовая оценка писать программами на паскале

Qwertyttt Qwertyttt    3   16.05.2020 17:46    4

Ответы
Алинаwlis Алинаwlis  14.10.2020 20:49

1)

var i:integer;

Begin

readln(i);

If (i < 0) and (i mod 4 = 0) then i:= i * -1;

write(i);

End.

2)

var i: integer;

Begin

readln(i);

if (i div 10) > (i mod 10) then write('Первое больше');

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Anastasia1tsv Anastasia1tsv  29.11.2021 11:17
Дано дві цілих числа A та B . Визначте чи є число B дільником A...
лера2285 лера2285  29.11.2021 11:15
A. Лес Ограничение времени 1 секунда Ограничение памяти 256Mb Ввод стандартный ввод или input.txt Вывод стандартный вывод или output.txt Дан лес. Найдите количество деревьев...
Dasha292001 Dasha292001  29.11.2021 11:14
составьте программу, которая находит и выводит на экран сумму цифр целого десятичного числа, которое считывает из файла...
svensyea svensyea  14.03.2021 19:15
Составьте блок-схему и программу для решения следующей задачи: Банк начисляет 2% годовых. Выведите какой станет сумма вклада S, положенная в банк на N лет. Значение S и...
PonchikPonchikovuy PonchikPonchikovuy  14.03.2021 19:16
Вывести в первой строке трехзначного числа(во второй строке их количество)у которых сумма цифр S и вторая цифра делится на третью, в третей строке вывести трёхзначные числа(в...
Ппмммммммм Ппмммммммм  14.03.2021 19:17
Здраствуйте, нужна с Языком программирования Си....
tomas787 tomas787  30.06.2019 02:20
Найдите количество целых чисел на интервале [100; 25000], у которых сумма цифр в десятичной и пятеричной системах счисления одинаковые. в ответе укажите целое число без...
мили241 мили241  30.06.2019 02:20
Дана матрица целых чисел размером 5 на 6. сформировать одномерный массив, каждый элемент которого равен произведению четных положительных элементов соответствующего столбца....
Gambuker Gambuker  30.06.2019 02:20
Даны два неравных целых двухзначных числа. возвести в квадрат большее из этих чисел и удвоить меньшее число. написать программу для паскаль....
BaSfOr BaSfOr  21.11.2019 20:36
Ввести с клавиатуры номер трамвайного (троллейбусного) билета (6 цифр) и определить является ли он счастливым. сумма первый трех цифр ровняется сумме вторых трех чисел....

Популярные вопросы