1. Информатика
  2. Turbo pascal ввести два

Turbo pascal ввести два числа. если сумма этих чисел четная, найти произведение, в противном случае, найдите частное этих чисел? . за ранее

sofiya13031 sofiya13031    3   04.06.2019 17:30    26

Ответы
Vlad2691 Vlad2691  05.07.2020 15:19
Var a,b:integer;
c:real;
begin
readln(a,b);
if ((a+b) mod 2 = 0) then c:= a*b
else c:= a/b;
writeln(c);
readln();
end. 
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
генадийпетрович генадийпетрович  15.02.2021 14:21
1.составить программу на вычисление скорости при равноускоренном движении.Начальная скорость,время,ускорение вводится.формула-v(скорость надо,на завтро надо Писать на Python...
lorencz2002 lorencz2002  26.09.2019 19:10
Вычислете выражение e^x-2+модуль sin (x)модуль закрывается -x^10×cos1/x при x=3.6. вычислите в python...
49583 49583  26.09.2019 19:10
Найти произведение 5*6**13 в pyton...
Ошлиарлт Ошлиарлт  26.09.2019 19:10
Вpython дано число. если оно от 2 до 5 включительно, то увеличить его на 10. если оно от 7 до 40, то уменьшить на 100. если оно не более 0 или более 3000, то увеличить в 3 раза...
Msrisel Msrisel  26.09.2019 19:10
На шахматной доске с координатами x1 и y1 находится фигура конь: запишите условие (логическое выражение), которая определяет, сможет конь за один ход переместиться в клетку с...
leraaleksan leraaleksan  26.09.2019 19:10
Вpyton. пользователь вводит три числа. если все числа больше 10 и первые два числа делятся на 3, то вывести yes, иначе no....
simakanna simakanna  26.09.2019 19:10
Впервую неделю работы бригада высадила в парке 314 деревьев, во второй 233 деревьев. оказалось, что на второй неделе было высажено на 31 дерево меньше, чем на первом. в какой...
CloseBooks CloseBooks  10.01.2020 13:31
Выполнить в с++ : в игре « лото» из мешка случайным образом выбираются бочонки, на каждом из которых написано число от 1 до 90. напишите программу, которая выводит наугад первые...
уфагаполмилио уфагаполмилио  10.01.2020 15:16
Построить формулу в excel, фирма имеет задолженность 5₽. для погашения долга решено вносить в банк ежемесячно по 65000₽ в течении 5 лет. годовая процентная ставка составляет...
CagBak CagBak  10.01.2020 15:11
Сторія розвитку обчислювальної техніки...

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