Составьте программу на языке паскаль которая уменьшает первое число в 5 раз если оно больше второго по абсолютной величине.
5-9 класс
|
Superannapri
25 сент. 2013 г., 4:26:15 (10 лет назад)
Liverany
25 сент. 2013 г., 6:15:41 (10 лет назад)
var
a, b : real;
begin
read (a, b);
if abs (a) > abs (b) then a := a / 5;
writeln (a, ' ', b);
end.
Mastertim
25 сент. 2013 г., 8:42:49 (10 лет назад)
var
a, b:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if abs(a) > b then
a := a / 5;
writeln;
writeln('a = ', a);
writeln('b = ', b);
writeln;
end.
Ответить
Другие вопросы из категории
Построить таблицу истинности для следующих выражений
1. BV(A&B)
2.┐AV(B&A)
3.A&(A&BVC)
4.┐(AC┐BVC)
5.A&(Cv
Что получится в результате работы следующего алгоритма, если 1) a=2, b=5, 2)
a=0, b=-2
алг пример
цел a,b,c
нач
ввод a,b
если a>0 то
если b>0 то
c:=a+b
иначе
c:=10
кв
иначе
если b>0 то
c:=a*b
иначе
c:=0
кв
кв
вывод c
кон
Не могу войти на некоторые сайты ни с одного браузера ,пишет будто бы не возможно найти адрес,хотя название введено абсолютно правильно в Google Chrome
например это обозначено как Ошибка 118 (net::ERR_CONNECTION_TIMED_OUT): Тайм-аут операции.,
Читайте также
Вы находитесь на странице вопроса "Составьте программу на языке паскаль которая уменьшает первое число в 5 раз если оно больше второго по абсолютной величине.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.