Меню сайта

Задача №11

Даны два ненулевых числа. Найти их сумму, разность, произведение и -частное.


Program begin_11-

Uses crt-

Var a,b,s,d, p,v: integer-

Begin

ClrScr-

Writeln(‘vvedite dva chisla’)- readln(a,b)-

s:=a+b- p:=a-b- v:=a*b- d:=a/b

writeln(‘summa=’,s)-

writeln(‘raznost’,p)-

writeln(‘proizvedenie’,v)-

writeln(‘chastnoe’,d)-

Readln-

end.

Категория: Линейные программы | Дата: 03.12.12

Меню раздела
Блок