Var a,b,c: real;
Begin
Writeln ('введите a,b,c');
Readln (a,b,c);
If a+b=c then writeln (a,' + ',b,' = ', c) else
If a+c=b then writeln (a,' + ',c,' = ',b) else
If b+c=a then writeln (b,' + ',c,' = ',a) else writeln ('нет такого числа');
End.
1) <span>111101
2) </span><span>924
3) 121
4) 70
5) 20
6) 95
сорре без решения
</span>
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>
begin
ReadInteger('n->').ToString.JoinIntoString(' ').ToIntegers
.Where(t -> t mod 4 = 0).Sum.Println;
end.
А) меню
б)пуск
в)главного меню
г)окно программы
A = 25
b = 4
a mod b(= 6) (6 не = 4)
идем по блоку 'нет'
a := а mod b
Ответ: 6