Посчитай на языке Паскаль 1 задача
var s,k: integer;
begin
s = 0;
for k := 3 to 7 do
s = s + 6;
writeln(s);
end.
2 задача
var
a, b, n: longint;
begin
readln(n);
a := n mod 10;
n := n div 10;
while n > 0 do begin
b := n mod 10;
n := n div 10;
end;
writeln(a+b);
readln;
end.
3 задача
var a,b,c,d:integer;
begin
readln(a);
d := a mod 10;
repeat
b := a mod 10;
a := a div 10;
until a=0;
c := d+b;
writeln(c);
end
n=10;m=7;
var
a:array[1..n,1..m]of integer;
flag,i,j,b:integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
a[i,j]:=random(312)-111;
write(a[i,j]:4);
end;
end;
writeln;
Writeln('B ?');
readln(b);
for i:=1 to n do
for j:=1 to m do
if a[i,j]=b then
flag:=1;
if flag=1 then
writeln('Yes')
else
writeln('N');
end.
вариант 2
const
n=10;m=7;
var
a:array[1..n,1..m]of integer;
k,i,j,b:integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
a[i,j]:=random(312)-111;
write(a[i,j]:4);
end;
end;
writeln;
Writeln('B ?');
readln(b);
for i:=1 to n do
for j:=1 to m do
if a[i,j]=b then
k:=k+1;
if k<>0 then
writeln('Yes')
else
writeln('N');
end.