Program zadacha;vara: array[1..5] of byte;i,max: byte;beginmax:=0;for i:=1 to 5 do begin a[i]:=random(255); write(a[i]:4);end;writeln;
for i:=1 to 5 doif a[i]>max then max:=a[i];
writeln('max=',max);
end.
Все real, кроме Е. Е - integer.
Хотя в некоторых паскалях Sqr/Sqrt имеют перегрузки, поэтому там могут быть integer.
Pascal
var
a,b,c : integer;
begin
readln (a);
b := a div 10; // узнать первую цифру двухзначного числа
c := a mod 10; // узнать последнюю цифру числа
writeln (c,b);
end.
всего вариантов 2^4=16
Истинно только если 2 скобки истинны. А скобки практически всегда истинны, кроме случая K и L = 0, или M и N = 0. Учтем их:
1) K и L = 0
о всеми случаями M и N, получается 2^2=4
2) M и N = 0
о всеми случаями K и L, получается 2^2=4
4+4=8, в оба случая входило, что все переменные = 0. Значит 8-1=7
7 вариантов, что уравнение ложно. Значит 16-7=9 Истинных вариантов