составить программу по Паскалю найти сумму чисел a и b и сравнить числа a и b
10-11 класс
|
uses crt;
var a,b:integer;
begin
write('Введите a и b: ');
readln(a,b);
writeln('Сумма чисел равна ',a+b);
if a>b then writeln(a,' больше ',b);
if a=b then writeln(a,' равно ',b);
if a<b then writeln(a,' меньше ',b);
end.
var
a,b:integer;
begin
readln (a,b);
writeln (a+b);
if (a>b) then writeln (a,'>',b)
else writeln (b,'>',a);
end.
Другие вопросы из категории
Протабулировать функцию y= cos x2+sin x2 на интервале [-п/2,п/2] с шагом п/10.
нь очень надо! Я не поняла суть задания.. переноса , скорее всего, в другую строку.. Как понимаете , решите , пожааалуйста !!!!! :)))))))))
Количество ввести при помощи оператора READ/
Читайте также
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
ПОМОГИТЕ кто может