Question

Решить 4,5,6,7. Составить программы паскаль

Answer 1

4) program z1;
var i,j,x:integer;
begin
for i:=1 to 9 do
for j:=1 to 9 do
for x:=1 to 9 do
begin
if (i<j) and (j<x) then write(i,j,x);
writeln;
end.
5) program z1;
var i,j:integer;
begin
for i:=1 to 9 do
for i:=1 to 9 do
writeln(i,j,j,i);
end.
6)program z1;
var a:real
i:integer;
begin
readln(a);
for i:=1 to 10 do
writeln(a,'*',i,'=',a*i);
end.
7)program z1;
var a,b,x:real;
begin
readln(a,b);
for x:=(-10) to 10 do
writeln('x=',x,'     y=',(a*x+b));
end.