Ctrl+V - Страница 15 - Форум

Добавлено (26.02.2012, 15:31)
---------------------------------------------
Program %NAME%3;
var
a,b,c,d :integer;
Begin
a:=2;
b:=4;
writen('enter d: ');
readln(d);
if (d>=5) then
begin
c:=a+b;
writeln('Rezult = ', c);
end
else
writeln('В is lesser then 5; d= ', d);
end.

- Будь проще и люди к тебе потянутся.
- Я лучше останусь собой и посмотрю, кто со мной останется!