Var a,b,c:integer;
function min(x1,x2:integer):integer;
begin
if x1<x2 then min:=x1 else min:=x2;
end;
function max(x1,x2:integer):integer;
begin
if x1<x2 then max:=x2 else max:=x1;
end;
begin
readln(a,b,c);
writeln( max( max(a,b) ,c ) - min ( min(a,b), c) );
<span>end.</span>
begin
var n1 := ReadlnInteger();
var s := n1.ToString;
var n2 := s[::-1].ToInteger;
Print(n2)
end.
НЕ (X < 6), следовательно, X >= 6
X нечетное
Между ними стоит "И", значит условия должны выполняться одновременно.
X >= 6 И X нечетное.
Наименьшее число будет 7.
Ответ: 7
Var
i,n:integer;
Begin
for i:= 1 to 119 do
if (i mod 5) = 0 then
n:=n+i;
Write('Сумма положительных кратных 5 чисел, меньших 120 равна ',n);
<span>End.
И вопрос - вы действительно 1-4 класс?</span>
<u>Поскольку протестировать программу без файла нельзя, вот код, создающий нужный файл.</u>
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
fint=file of integer;
begin
var f:fint;
Assign(f,'integers.bin'); Rewrite(f);
SeqRandom(20,-50,50).foreach(t->Write(f,t));
f.Close
end.
<u>А теперь, собственно, решение задачи</u>
type
fint=file of integer;
begin
var f:fint;
Assign(f,'integers.bin'); Reset(f);
var k:=0;
var b:integer;
while not Eof(f) do begin
Read(f,b);
if b.IsEven then k+=1
end;
f.Close;
Writeln('Кол-во четных компонент файла равно ',k)
end.
<u>И последнее - программа распечатки значений компонент файла. Для контроля.</u>
type
fint=file of integer;
begin
var f:fint;
Assign(f,'integers.bin'); Reset(f);
var b:integer;
while not Eof(f) do begin Read(f,b); Print(b) end;
Writeln;
f.Close
end.