Пожалуйста, помогите написать программу для Pascal abc
5-9 класс
|
var
x, y :integer;
begin
readln(x);
if x <= -200 then
y:= 15*x*x*x
else
begin
if (x > -200) and (x <= 0) then
y:= abs(x) + 2
else
y:= 100;
end;
writeln(y);
end.
Другие вопросы из категории
Выходные данные :вывести сумму ряда.
декодировать полученную двоичную последовательность. Вот этот код: А-11, Б - 10, В- 011, Г - 000, Д- 001. Можно ли сократить для одной из букв длину кодового слова так, чтобы код по-прежнему можно было декодировать однозначно? Коды остальных букв меняться не должны.
А. дисковая
В. базовая
С. расширенная
10.Сегментная модель ОП.
А. Представлена блоками по 256 МБ
В. Представлена блоками по 64 КБ
С. Представлена блоками по 1 МБ
11.Файловые системы
А. FAT32
– реализована в ОС Windows XP
Читайте также
1. Написать программу нахождения произведения n чисел.
С начала суток прошло N секунд (целое). Найти кол-во полных часов, прошедших с начала суток.
амеба каждые 3 часа делиться на 2 клетки. Определить, сколько амеб будет через 3,6,9,12 и 24 часа.
3) дано натуральное числоо N и действительное число Х. Вычислить сумму ряда sin(x)+sin(2x)+sin(3x)+...+sin(Nx).
4) написать программу для вычисления n-ой степени числа А.
помогите, пожалуйста)