Помогите срочно. Написать программу в паскаль. a,b если а>b то с=a-b a<b то с=b-a a=b то c=a+b
10-11 класс
|
Var a,b,c:integer;
Begin
write('a='); readln(a);
write('b='); readln(b);
if a>b then
c:=a-b
else
if a<b then
c:=b-a
else
c:=a+b;
writeln('c=',c);
readln;
end.
Другие вопросы из категории
Язык Си. Хотя бы алгоритм
p:=1;
FOR k:=5 DOWNTO 1 DO
begin
так, чтобы они оказались упорядоченными по возрастанию.
Известны баллы, полученные студентами за контрольную работу. Вычислить максимальный балл.
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
Составить программу перевода натурального числа из десятичной системы счисления в двоичную
http://primat.org/index/0-128 вот сайт что бы написать программу.