Составить программу: если х <=83 то найти y=28 х +157 иначе вычислить у=20х-595
5-9 класс
|
Var x,y:real;
Begin
Write('Введите x= '); readln(x);
if (x<=83) then y:=28*x+157
else y:=20*x-595;
Writeln('y=',y);
end.
var x,y:integer;
begin
readln(x);
if x<=83 then writeln('При x=',x,' y=28x +157=',28*x +157)
else
Другие вопросы из категории
1) Управлять компьютером можно, выбирая нужную команду из заранее заготовленных вариантов- ______________________________________________________________.
расположенный в соседней комнате вашей организации; б) отправка электронного письма другу из Германии; в) копирование файла со своего рабочего компьютера на сервер орга-низации; г) обновление антивирусных баз с сайта разработчика; д) сетевая компьютерная игра с соседом по подъезду; е) поиск в Интернет информации о погоде.
В пионерском лагере 70 ребят.Из них 27 занимаются в драмкружке, 32 поют в хоре, 22 увлекаются спортом.В драмкружке 10 ребят из хора, в хоре 6 спортсменов, в драмкружке 8 спортсменов; спортсмена посещают и драмкружок, и хор.
Вопрос:сколько людей не ходят никуда?Сколько ребят ходят в эти кружки?
Решение пишите обязательно с помощью схемы!
Пожалуйста!!!
Читайте также
сел - отрицательное, то найти Iа+ b+cI иначе а+b+c +d в корне.
Даны три числа. Если произведение данных чисел - отрицательное, то каждое число возвести в квадрат, иначе найти модуль каждого числа
ПОМОГИТЕ ОЧЕНЬ ПРОШУ
пути:
направо,-"Коня потеряешь"
налево,-"голову сложишь"
вперёд,-"невесту найдёшь"
2.Составить прогрмму,которая определяет положительное число или отрицательное.
3.Дано целое число А.Если значение А>0,то необходимо его уыеличить на единицу.Если В<0,то уменьшить на единицу.
Зарание спасибо :)
пр. для вычисления Y если Х>0 то Y=2, если Х=0 то Y=0,если Х<0 то Y=x/2
равносторонний,равнобедренный или какой либо другой.
Вот ещё одна
Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.
Пожалуйста ребят.