Программа запрашивает 2 числа,а затем запрашивает чему равно их произведение.Если ответ явный ,то "молодец",если нет,то "учи математику"
10-11 класс
|
Program matem;
uses crt;
var c1,c2,res:integer;
begin
Write('Введите первое число, с1= ');
Readln(c1);
Write('Введите второе число, с2= ');
Readln(c2);
Write('Введите произведение этих чисел, res= ');
Readln(res);
If res = c1*c2 then
Writeln('Молодец') else
Writeln('Учи математику!');
end.
Другие вопросы из категории
положительных элементов. 3)Дан массив из 6 элементов.Найти произвдение положительных из них.
имеется свободная область памяти 20 кбайт . поместится ли текст на дискету?
Читайте также
2) Найти с помощью программы чему равно выражение (15*2+8)-1, если есть всего 3 переменные x, y, z
Всё это посчитать в ПАСКАЛЕ!ПОМОГИТЕ,ПОЖАЛУЙСТА!
наоборот, тоесть после вводе числа- FFF программа должна вывести число 4095 и ниже снова FFF, программа должна быть простая и не слишком умная. Заранее спасибо
1. Написать программу нахождения среди чисел от 1 до 100 всех пар чисел, для которых их сумма равна их произведению)
2. Написать программу вычисления куба суммы всех четных чисел от 2 до 100
3. Каждая бактерия делится на две через три минуты. В начальный момент имеется одна бактерия. Написать программу, определяющую, сколько будет бактерий через N минут