1. Составьте программу, которая запрашивает с клавиатуры значения x и y. Если xamp;gt;y то
1. Составьте программку, которая запрашивает с клавиатуры значения x и y. Если xgt;y то печатается разность x-y, в неприятном случае y-x.
2. Напишите программку, которая запрашивает с клавиатуры a, b, c. Если agt;b+c, то на печать выводится a. В приятелем случае выводится b+c.
3. Напишите программку, которая запрашивает с клавиатуры значения k и x. Если k=1, то вычисляется значение sin(x), если k=2, то рассчитывается значение cos(x).
4. Напишите программку, которая запрашивает значения p и m. Если pgt;m2 , то печатается p, в неприятном случае m2.
СДЕЛАЙТЕ В ПАСКАЛЕ)
И МОЖЕТЕ МЕНЯ Обучить ?
1 ответ
Kristina Kosilo
//Pascal
//1)
var x, y: integer;
begin
write('Введите x y: ');
read(x, y);
if x gt; y then
writeln(x - y)
else
writeln(y - x);
end.
//2)
var a, b, c: integer;
begin
write('Введите a b c: ');
read(a, b, c);
if (a gt; (b + c)) then
writeln(a)
else
writeln(b + c);
end.
//3)
var x, k: integer;
begin
write('Введите x k: ');
read(x, k);
if k = 1 then
writeln(sin(x))
else
if k = 2 then
writeln(cos(x))
else
writeln('k обязан быть равен 1 либо 2.');
end.
//4)
var p, m: integer;
begin
write('Введите p, m: ');
read(p, m);
if p gt; m * 2 then
writeln(p)
else
writeln(m * 2);
end.
//1)
var x, y: integer;
begin
write('Введите x y: ');
read(x, y);
if x gt; y then
writeln(x - y)
else
writeln(y - x);
end.
//2)
var a, b, c: integer;
begin
write('Введите a b c: ');
read(a, b, c);
if (a gt; (b + c)) then
writeln(a)
else
writeln(b + c);
end.
//3)
var x, k: integer;
begin
write('Введите x k: ');
read(x, k);
if k = 1 then
writeln(sin(x))
else
if k = 2 then
writeln(cos(x))
else
writeln('k обязан быть равен 1 либо 2.');
end.
//4)
var p, m: integer;
begin
write('Введите p, m: ');
read(p, m);
if p gt; m * 2 then
writeln(p)
else
writeln(m * 2);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Я хочу найти решение и ответ для этой задачи и получить
Математика.
Здравствуйте
Меня зовут Виталий, я AdOps-аналитик компании Adfinity.pro
Заинтересовал ваш проект obrazovalka.com
Думаю сможем увеличить
Разные вопросы.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной
Литература.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной
Литература.
В семье из трех человек три электронных устройства: ноутбук, планшет и
Разные вопросы.
Жаркыраган кашка маш жаралгандан ашка маш табышмак жообу менен
Кыргыз тили.
Облако тегов