ввести с клавиатуры пару чисел,меньшее из них заменить их произведением.большее суммой этих чисел.При воде равных чисел-выход из программы
5-9 класс
|
program z;
var a,b,a:real; {при желании можна real поменять на integer }
begin
writeln ('Vvedit a i b');
readln (a,b);
if a<b then begin
c:=a; {3-я переменная нужна чтобы не потерять неременную a}
a:=a*b;
b:=b+c;
writeln (a,b); {вывод даных}
readln {задержка экрана}
end;
if a>b then begin {NEвкоем случае не менять эту строчку на "else"}
c:=b;
b:=a*b;
a:=a+c;
writeln (a,b);
readln
end {ПЕРЕД "end" точка з запятой Не обязательная}
end.
Другие вопросы из категории
Составте пожалуйста решение в паскале к задаче: Окр вписана в квадрат. Sквадрата =36.Найти радиус и площадь круга.
Входные данные:
в первой строке целое число n (0 < n ≤ 100) - кол-во элементов в массиве и целые числа i1 и i2 (0 < i1, i2 ≤ 100). Во второй строке целые числа Х1, Х2,..,Хn разделенные пробелом (числа по модулю не превосходят 32000) - значения элементов массива.
Выходные данные:
сумма элементов массива c номерами от i1 до i2.
(Написать программу на Паскале)
а) 101010+1101;
б) 1010+1010;
в) 10101+111.
Читайте также
например армия(строка а)
арбуз (строка б)
2)составьте программу ,которая предлагает ввести с клавиатуры две строки а и б ,соеденяет их и выводит результат в одну строку
например: тепло(строка а)
ход(строка б)
1.Даны два действительных числа меньшее из них замените полусуммой их, а большее их произведением.
2.Найдите решение уравнения ах+ в=0, если оно существует,если а=0
3.написать программу удвоения меньшего из двух чисел