Различаются экраном а похожи функциями
Если Pascal:
var
n: byte;
i: integer;
begin
readln(n);
for i:=100 to 999 do
if ((i mod 10) + ((i div 10) mod 10) + (i div 100)) = n then writeln(i);
end.
Program z1;
var x,y:real;
begin
writeln('Введите x');
readln(x);
y:=(2*x+3)*(7*x-5)
writeln('y=',y:3:2);
end.
_
_
program z1;
var x,y:real;
begin
writeln('Введите x');
readln(x);
y:=2-(x-3)/sqr(x-3)+4
writeln('y=',y:3:2);
end.