Program summa;
uses crt;
const N =10;
var B:array[1..N] of integer;
s,i : integer;
begin
s:=0;
for i:=1 to N do
begin
write( 'B[ ' ,i, ']= ' ); readln(B[i]);
s:=s+B[i];
end;
writeln( 's=' ,s);
end.
Мой ответ будет верным при условии, что друг попал на сторонний сайт, открыв ссылку из электронного письма.
Такими уловками пользуются мошенники, так как требовать авторизации в почтовом сервисе может только сам почтовый сервис. О подобных случаях мошенничества пользователь предупреждается, например, в Пользовательском соглашении почтового сервиса MailRu (пункт 4.1.3).
Нужно сменить пароль от электронной почты.
Если это невозможно, обратиться к администрации почтового сервиса с подробным описанием произошедшего случая.
Я думаю что тетради 5 класса лежат в 3 пачке
Ответ:
Создается константа nmax, равная 15
Создается переменная a, типа двумерного массива типа integer
Создаются переменные n, i, j, jmax типа byte
Создается переменная buf типа integer
Задается размерность, не больше nmax (то есть 15), и помещается в переменную n
Выводится исходная матрица, через 2 цикла, тк двумерный массив.
Дальше преобразуется матрица
Опять таки в двух циклах.
Выводится на экран и всё.
Ну, конечно, можно.
50 * 60 = 3000 байт
3000 * 120 = 360000 байт
360000 : 1024 = 351,5625 Кбайт
А на дискетке - в 4 раза больше места.