Написать блок (структурную) схему для a*x+b*y=c, удовлетворяющую условиям ixi< =10, iyi< =20. здесь a, b, c - заданные числа.
программа на языке паскаль
var
a,b,c,x,y: integer;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
for x: =0 to 10 do
for y: =0 to 20 do
if a*x+b*y=c then
begin
writeln('x=',x);
writeln('y=',y);
writeln
end;
end.
var j, a, b, n: integer;
label 1;
begin
1: randomize;
a: = random (9);
b: = random (9);
write (a, '*', b, '=');
read (n);
if n = (a * b) then writeln ('відповідь вірний! ')
else writeln ('відповідь неправильний! ');
writeln ('продовжуватимеш? ');
writeln ('якщо так то натисни 1');
writeln ('якщо немає то натисни 2');
read (j);
if j = 1 then goto 1;
if j = 2 then writeln ('до побачення! ');
end.
начебто так, точно не пам'ятаю.