Дано целое число. Проверить, является ли оно кратным 4, или кратным 6. Из диапазона чисел от 150 до 350. Найти количество чисел кратных 12 из диапазона чисел от 50 до 500.

быстро нужно

Question

Информатика: Дано целое число. Проверить, является ли оно кратным 4, или кратным 6. Из диапазона чисел от 150 до 350. Найти количество чисел кратных 12 из диапазона чисел от 50 до 500. быстро нужно ​

ДанилКаДми · Accepted Answer

1)
var f:text; a:array[1..7] of real; i,k,c,x:integer; s:string;
begin
for i:=1 to 7 do
begin
readln(x);
a[i]:=x;
end;
assign(f,'file.txt');
rewrite(f);
for i:=1 to 7 do
begin
str(a[i],s);
writeln(f,s);
end;
close(f);
reset(f);
k:=0;
while not eof(f) do
begin
readln(f,s);
val(s,x,c);
if x<0 then k:=k+1;
end;
close(f);
if k<>0 then writeln('В массиве ',k,' отрицательных элемента(ов)');
else writeln('В массиве нет отрицательных элементов');
erase(f);
end.

2)
Var a,b,c,d:integer;

Function max(a,b:integer):integer;
begin
if a>b then max:=a
else max:=b;
end;

Begin
readln(a,b,c,d);
a:=(max(a,b));
b:=(max(c,d));
writeln('max=',max(a,b));
End.

MOGZ ответил