Написать программы на паскале для двух примеров
10-11 класс
|
первая картинка
var x,y:integer;
begin
readln(y);
if y=2 then x:=1/2 else
if y>2 then x:=4 else x:=0;
writeln(x);
end.
____________________
вторая картинка
var x,x1:real;
i:integer;
begin
readln(x);
x1:=1;
for i:=1 to 7 do
x1:=x1*x;
writeln(x1);
end.
Другие вопросы из категории
а) 57
б) -96
Вводится строка, состоящая только из цифр без нуля. Написать пользовательскую функцию, которая возвращает строку , добавляя после каждого символа символ '0'.
A) кодом
B) сеткой
C) маской
D) блокировщиком
за какое время будет по каналу передан текст, информационный объём которого составляет 100 килобайтов.
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
массив из N целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. Протестировать программу для следующих массивов:
а) 3 5 -2 0 -6 -8 1
б) -1 -2 -3 0 -1 2 3
массивы должны вводися вручную а не рандомно.
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
13.
Нужно написать программу на цикле с предусловием, на Паскале.