даны два числа. Большее число увеличить на 3, а меньшее уменьшить на 5
5-9 класс
|
Program chisla;
Uses crt;
var a,b:real;
begin
clrscr;
write('введите число а: ');
readln(a);
write('введите число b: ');
readln(b);
if (a=b) then writeln('Числа равны');
if (a>b) then
begin
a:=a+3;
b:=b-5;
end
else
begin
b:=b+3;
a:=a-5;
end
writeln('a= ',a);
writeln('b= ',b);
readkey;
end.
Другие вопросы из категории
равновероятно.Сообщение о том, что на остановку пришел трамвай №5 содержит 3 бита информации. Сколько маршрутов трамваев останавливается на данной остановке?
Читайте также
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни
деление). Составьте программу, которая по введенному номеру выполняет то или иное действие над числами
первой цифре заданного числа, а число единиц-последней. Например: 3234 => 34.