Program bi;
type tab=array[1..100,1..100] of integer;
var n,m,i,j,s:integer;
t:tab;
begin
readln(n);
readln(m);
for i:=1 to n do
for j:=1 to m do
readln(t[i][j]);
for i:=1 to n do
for j:=1 to m do
if(t[i][j] mod 2=0) then S:=S+t[i][j];
writeln('Mассив:');
for i:=1 to n do begin
writeln;
for j:=1 to m do
write(t[i][j],' ');
end;
writeln('сумма чётныч чисел ',S);
<span>end.</span>
<span>x:=13; ||| x=13
y:=3; ||| y=3
z:=x; ||| z=13
x:=z div y; ||| x=4
y:=x;</span> ||| y=4
Ответ: x=4, y=4, <span>z=13</span>
1.
var
i,n:integer;
begin
read(n);
for i:=1 to n do
write(i,', ');
end.
2.
var
i,n:integer;
begin
n:=9;
for i:=1 to n do
writeln(i,'*',n,'=',n*i);
readln(i);
end.
Значитса тебе надо найти квадраты чисел до самого N ,для этого мы объявляем переменную k и присваиваем ей 1 и переменную s, которой присваиваем значение 0, после делаем цикл от 1 до N с шагом 1 и там же к s прибавляем k, а k увеличиваем на 2 ( на 1 шаге k=3, на 2 k=5 и т. д., то есть нечетные числа) ну и выводим в цикле s
#include <iostream>
#include <conio.h>
using namespace std;
int main()
{
int N;
cin>>N;
int k=1,s=0;
for(int i=1;i<=N;i++)
{
s=s+k;
k=k+2;
cout<<i<<"^2 = "<<s<<endl;
}
_getch();
return 0;
}