Введите переменную с ,если переменная в=10. если с больше выводите их сумму ,иначе выводите удвоенное произведение.

2

Ответы и объяснения

2013-12-12T18:31:00+04:00
Uses crt;
const b=10;
var c:integer;
begin
read(c);
if c>b then writeln(c+b)
else writeln(2*c*b);
end.
2013-12-12T18:32:14+04:00
Program kkk;
var c,b,q:integer;
begin
writeln('vvedite c');
readln(c);
b:=10;
if c>b then q:=c+b
else
q:=sqr(c*b);
writeln('q=',q);
end.