program mas;
var A:array[1..4,1..6] of integer;
i, j: integer;
summ: integer;
id: integer;
begin
randomize;
for i := 1 to 4 do
begin
for j := 1 to 6 do
begin
A[i, j] := random(30) + 45;
write(A[i,j]);
write(' ');
end;
writeln('');
end;
for j := 1 to 6 do
begin
for i := 1 to 4 do
begin
summ := summ +A[i, j];
end;
writeln(summ / 4);
summ := 0;
end;
readln;
end.
F8 формула: =B12*5.
B5 формула: =А4+D6.
C7 формула: =D6/$A$2.
F9 формула: =$C$5-G1.
E5 формула: =C$5-$E9.
Дискета (правда уже устарела), жёсткий магнитный диск (винчестер), оптические носители информации (CD и DVD диски), ещё сюда наверно можно отнести флеш накопитель.
60 дней ответ
1) берешь арифметическую прогрессию 5,6,7 и тд
2)в итоге за 59 дней он придумает 2006 песенок а за 60 он как раз допридумывает
1. найти сумму чисел с 1 до n
Program ffff;
Uses crt;
var n,i,s:integer;
begin
writeln ('Кол-во цифр');
readln (n);
for i:=1 to n do
s:=s+i;
writeln (s);
end.
Если сегодня четное число месяца , то я беру с собой на 10 рублей больше чем обычно
Program ffff;
Uses crt;
var n,i:integer;
begin
writeln ('Сколько я беру обычно');
readln (n);
writeln ('Какое сегодня число');
readln (i);
if i mod 2 = 0
then n:=n+10;
writeln (n,' рублей я сегодня беру');
end.