Translate

понедельник, 18 мая 2015 г.

Программирование
Program +; 
var a,b,c:byte;
begin
write('vvedite 2 chisla');
readln(a);
readln(b);
c:=a+b;
writeln('Summa chisel=',c);
readln;
end.

Program -; 
var a,b,c:byte;
begin
write('vvedite 2 chisla');
readln(a);
readln(b);
c:=a-b;
writeln('raznost chisel=',c);
readln;
end.

Program *; 
var a,b,c:byte;
begin
write('vvedite 2 chisla');
readln(a);
readln(b);
c:=a*b;
writeln('proizvedenie chisel=',c);
readln;
end.

Program /; 
var a,b,c:byte;
begin
write('vvedite 2 chisla');
readln(a);
readln(b);
c:=a/b;
writeln('chastnoe chisel=',c);
readln;
end.

Комментариев нет:

Отправить комментарий