<span>Задача №1 (( остальные по аналогии сделай ))
const n=3;var a:array[1..n,1..n] of integer; {Ввод массива N на N} i, j, sum: integer; {Ввод переменных}begin sum := 0; begin for i:= 1 to n do for j:= 1 to n do read(a[i,j]) end; for i:= 1 to n do begin for j:= 1 to n do if a[i,j] > 0 then sum:=sum + a[i,j] end; write('сумма = ', sum);end.</span>
A:=x+1/x-1
b:=a;
for i:=1 to x do b:=b*a;
b:=b+18*x*(y*y);
2)♀️я не уверена и не очень поняла,но должно быть 6
1. <span>T=V информации / Скорость передачи; 500 мбит/сек = 62,5 мбайта/сек; t=12,5 мбайт / 62,5 мбайт/сек = 0,2 сек Ответ: 0,2 секунды
</span>
<u><em>1. Решение для "школьников"
</em></u>// PascalABC.NET 3.0, сборка 1073
var
i,n:integer;
s:string;
begin
Write('Введите свое имя: '); Readln(s);
if s[1]='И' then begin
n:=Length(s)-1;
s:=s[1];
for i:=1 to n do s:=s+'*'
end;
Writeln('Результат работы: ',s)
end.
<em><u>Тестовое решение:</u></em>
Введите свое имя: Игорь
Результат работы: И****
Введите свое имя: Сергей
Результат работы: Сергей
<em><u>2. Решение, каким оно должно быть, но этому не учат</u></em>
// PascalABC.NET 3.0, сборка 1073
begin
var s:=ReadString('Введите свое имя: ');
if s[1]='И' then s:=s[1]+StringOfChar('*',Length(s)-1);
Writeln('Результат работы: ',s)
end.