3) program n9;
var a,b,p:integer;
begin
a:=20;
b:=-12;
p:=a*b;
writeln(p);
end.
4) program b5;
var c,b: integer;
readln(c);
if c<0 then b:=0 else b:= c*2;
end;
writeln(b);
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
3) program n9;
var a,b,p:integer;
begin
a:=20;
b:=-12;
p:=a*b;
writeln(p);
end.
4) program b5;
var c,b: integer;
begin
readln(c);
begin
if c<0 then b:=0 else b:= c*2;
end;
writeln(b);
end.