Program zadacha;
var a,b,c,s,p: integer;
begin
writeln ('Введите три числа');
readln (a,b,c);
s:=a+b+c;
p:=a*b*c;
writeln ('Сумма равна ',s);
writeln ('Произведение равно ',p);
end.
Язык не указан, решение будет приведено на двух языках: наиболее популярном в школах Pascal и, на мой взгляд, незаслуженно считающемся "детским и непрофессиональным" BASIC (в примитивной его версии qBASIC). Как можно будет убедиться, в Бейсике программа получается даже короче и, я бы сказал, даже нагляднее..
<em><u>Pascal:</u></em>
var
x:integer;
begin
x:=1;
Writeln(' x y=4x-5');
while x<30 do
begin Writeln(x:2,4*x-5:6); x:=x+3 end
end.
<em><u>Результат выполнения программы:</u></em>
x y=4x-5
1 -1
4 11
7 23
10 35
13 47
16 59
19 71
22 83
25 95
28 107
<em><u>qBASIC:</u></em>
PRINT " x y=4x-5"
FOR x = 1 TO 30 STEP 3
PRINT x, 4 * x - 5
NEXT x
END
Результат выполнения программы:
x y=4x-5
1 -1
4 11
7 23
10 35
13 47
16 59
19 71
22 83
25 95
28 107