Question

Помогите с задачами 1) введите с клавиатуры 3 числа если они больше 10 то выводим слово успех иначе провал 2) генерируйте число от 10 до 99 если оно четное и больше 75 то вывести на экран сумму его чисел иначе разность

Answer 1

Решение на скринах. Копировать не хочу, т.к все в строчку получается

Answer 2

Var
   a,b,c:real;
Begin
Write('Введите три числа: ');ReadLn(a,b,c);
if (a>10)and(b>10)and(c>10) then WriteLn('успех')
else WriteLn('провал');
End.



Var
   A:integer;
Begin
Randomize;
A:=random(90)+10;
WriteLn('Исходное число: ',A);
if (A mod 2 = 0)and(A > 75) then
   Write('Сумма его цифр: ',A div 10 + A mod 10)
else
   WriteLn('Разность его цифр: ',A div 10 - A mod 10)
End.