Прошу помочь составить программу Pascal. 1-ый или 2-ой на выбор. С фото.
5-9 класс
|
program w;
var x,y:real;
begin
readln('Введите x: ',x);
if X<=5 and x>=3 then
y:=3*sqr(X);
else
if 8<=x and x<=10 then
y:=2*sqr(x);
else
y:=4*sqr(x);
end;
end;
writeln ('Y= ',y);
end.
uses crt;
var x,y:real;
begin
readln(x);
if x >= 7 then
y:=0.5*x
else if (( x >= 0 ) and ( x < 3)) then y:=x else y:=sqr(x);
writeln(y);
end.
Другие вопросы из категории
например армия(строка а)
арбуз (строка б)
2)составьте программу ,которая предлагает ввести с клавиатуры две строки а и б ,соеденяет их и выводит результат в одну строку
например: тепло(строка а)
ход(строка б)
язык программирования паскаль
Читайте также
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
1. Составьте программу для определения большего из двух чисел х или у
2. Составьте программу для нахождения площади прямоугольника по заданным сторонам а и б
Или
составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T
надо решить одну из них
Составить программу решения
линейного уравнения: ах + в = 0,
при (а <> 0)
2)
Посчитать, сколько молекул воздуха находится в данной комнате.
по поводу этой задачи от себя могу добавить (
молярная масса воздуха принимается равной 29 г/моль.
зная объем комнаты (параллелепипед высота*ширина*длина) находите объем в литрах. объем/22,4=количество в молях. полученный результат умножается на число авогадро и ответ готов (без учета давления и температуры)
надеюсь это поможет вам в составление программы и тем самым оказании услуги многим-многим школьникам, попавим в неловкое положение, в последние дни четверти.
равносторонний,равнобедренный или какой либо другой.
Вот ещё одна
Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.
Пожалуйста ребят.