Var
i:integer;
a:array[4..9]of integer;
begin
writeln('Исходный массив:');
for i:=4 to 9 do
begin
a[i]:=random(1,10);
write(a[i]:4);
end;
for i:=4 to 9 do
if a[i]<5 then a[i]:=a[i]-1;
writeln;
writeln('Преобразованный массив:');
for i:=4 to 9 do
write(a[i]:4);
<span>end.</span>
var a,b,c,d:integer;
BEGIN
read(a,b,c,d);
if (a*b*c*d mod 3 = 0) then
writeln("Pravda")
else writeln("Nepravda");
END.
Вычислительные таблицы могут пригодиться нам в разных отраслях.В разных видах работ.Например бухгалтер, рабочий(на стройке и т.д).В сельскохозяйственной отрасли. Вычислительная таблица может пригодиться нам в самых разных ситуациях, поэтому на мой взгляд мы должны знать основы таких вычислений...
100,1,4,9,15,25,36,49,64,81