3Д изображения имеют большую реалестичность
ешё картина весенний сад
Var
i,a:integer;
s:real;
begin
for i:=1000 to 3000-1 do
if (i mod 6=0)and(i mod 10=4)then
begin
write(i,' ');{это чтобы посмотреть на числа, эту строку можно убрать}
s:=s+i;
end;
writeln;
writeln('S= ',S);
end.
Const n = 10;
var i,k,c: integer;
a:array[1..n] of integer;
begin
//Заполняем массив и выводим на экран
for i:=1 to n do begin
a[i]:=random(150)-50;
write(a[i]:5);
end;
writeln;
//Вывод элементов кратных пяти
k:=0;
for i:=1 to n do
if a[i] mod 5 = 0 then begin
write(a[i]:5);
k:=k+1;
end;
writeln;
writeln('Всего кратных пяти - ',k);
end.
Var
i,a:integer;
b,c:real;
Begin
read(a);
for i:=1 to a do begin
read(c);
b:=b+c;
end;
writeln(c/a);
end.