Var S,A:integer;
Begin
S:=0;
For A:= 10 to 99 do
S:=S+A;
WriteLn('S = ',S)
End.
64 ГБ - 65536 МБ
Фильм - 1300,48 МБ
Фото - 1525,76 МБ
Отчет - 15,4 МБ
1300,48 + 1525,76 + 15,4 = 2841,64 МБ
65536 - 100 %
2841.64 - X %
2841.64 * 100 / 65536 ≈ 4.3%
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var m:=ReadlnInteger();
var a:=matrixRandom(m,m,-20,20);
Println(a);
var p:=1;
for var i:=0 to m-1 do
for var j:=0 to m-1 do
if a[i,j]>0 then p:=p*a[i,j];
println(p);
end.
В России построена первая телеграфная линия - 40-е гг. 19 века.
В Америке изобретён телефон - 1876 г
Русский ученый Попов открыл радиосвязь - 1895 г.
Создан первый телевизор - 30-е гг. 20 века
В США начала функционировать первая в мире компьютерная - 1969 г.
В номере 1-ответ 3
В номере 2-ответ 4
В номере 3-ответ 1
Удачи))