Компьютерная программа, позволяющая проводить вычисления с данными,
представленными в виде двухмерных массивов, имитирующих обычные
таблицы.
автоматизация вычислений;
представление результатов вычислений в виде диаграмм;
моделирование, когда исследуется влияние одних параметров на другие
Var a:array[1..5] of integer;
i,s:integer;
begin
writeln('Введите 5 чисел:');
for i:=1 to 5 do
begin
read(a[i]);
if (a[i] mod 3 = 0)and(a[i] mod 10 = 7) then s:=s+a[i];
end;
writeln('s = ',s);
end.
Пример:
Введите 5 чисел:
125 273 117 471 207
s = 324
Var
sum, a, b: integer;
begin
sum:=0;
readln(a);
readln(b);
sum:=a+b;
if (sum mod 5 = 0) then sum:=sum+1 else sum:=sum-2;
writeln(sum);
end.
Ответ:
1:2232 кб 2:
0,002148
Объяснение:
В 1 мегабайте-1024 килобайт это в 1 варианте а во втором просто килобайты делим на 1024 и получится кол-во Мегабайт