Складіть алгоритм знаходження більшого з трьох різних дійсних чисел x, y, z. Підберіть три різних значення змінних та виконайте алгоритм при цих значеннях
begin readln(a); if a mod 2 = 0 then println('da') else println('net'); end.
1 б) var a: integer;
begin readln(a); if a mod 10 = 7 then println('da') else println('net'); end.
2 а var a: integer;
begin readln(a); if (a div 10+a mod 10) mod 3 = 0 then println('da') else println('net'); end.
2 б var n,a: integer;
begin writeln('Введите число'); readln(n); writeln('Введите a'); readln(a); if (n div 10+n mod 10) mod a = 0 then println('da') else println('net'); end.
Function DecToN(a : Longint; Raz : Byte) : String; Begin If a>Raz-1 then DecToN:=DecToN(a div Raz,Raz)+Rn[(a mod Raz)+1] else DecToN:=Rn[a+1]; end;
Function NToDec(a : String; Raz : Byte) : Longint; Begin If Length(a)>0 then NToDec:=Pos(a[Length(a)],Rn)-1+Raz*NToDec(Copy(a,1,Length(a)-1),Raz) else NToDec:=0; end;
var
a: integer;
begin
readln(a);
if a mod 2 = 0 then
println('da')
else println('net');
end.
1 б)
var
a: integer;
begin
readln(a);
if a mod 10 = 7 then
println('da')
else println('net');
end.
2 а
var
a: integer;
begin
readln(a);
if (a div 10+a mod 10) mod 3 = 0 then
println('da')
else println('net');
end.
2 б
var
n,a: integer;
begin
writeln('Введите число');
readln(n);
writeln('Введите a');
readln(a);
if (n div 10+n mod 10) mod a = 0 then
println('da')
else println('net');
end.