Помогите написать это на паскале:
5-9 класс
|
var a,x:integer;
begin
writeln('x');readln(x);
if x<=-1 then a:= x+ sin(x);
if (x<5) and (-1<x) then a:=sqr(x+1)
else a:=1;
writeln (a);
end.
Другие вопросы из категории
1).cpp a)web-станица
2).cdr b) flash-анимация
3).swf c)векторный файл
4).html d)программа на C++
а) 1d,2c,3d,4a
в)1b,2a,3d,4c
б)1d,2c,3a,4b
г)1b,2d,3c,4a
Читайте также
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
Напишите программу, которая в последовательности целых чисел
вычисляет сумму всех чисел, которые кратны 6 или 11. Программа получает на вход
целые числа, количество введённых чисел неизвестно, последовательность чисел
заканчивается числом 0 (0 – признак окончания ввода, не входит
в последовательность).
Количество чисел не превышает 1000. Введённые числа по
модулю не превышают 30 000.
Программа должна вывести одно число: сумму всех чисел,
которые кратны 6 или 11.
и S арифметической прогрессии через цикл for.
Создать файл а4, состоящий из 28 целых чисел. Найти среднее арифметическое всех чисел.
зависимости от времени суток. Пример: Введите число от 0 до 24: 12 Добрый день!"