Программа на языке программирования Pascal:

var
x, y: real;

begin
read(x, y);
if (y > sqr(x)-2) and ((y < x) or (y < -x)) then
writeln('YES')
else
writeln('NO')
end.

0 0

4 года назад

На компакт-диске объёмом 600 Мбайт размещен фотоальбом, каждое фото в котором занимает 500 Кбайт сколько времени займет просмотр

Lollapalooza

600*1024 = 614 400 КБ
614 400/500 = 1 228 Файлов
1 228*6 = 7 368 Секунд
Ответ: 7 368 секунд или 122 часа

0 0

3 года назад

Помогите пожалуйста очень срочно вводятся 3 числа с клавиатуры x.y.z Найти и вывести на экран P=x*y*z и вывести сумму S=x+y+z

Veronica Frolova [7]

1)
var x, y, z, P, S: integer;
begin
readln(x, y, z);
P := x * y * z;
S := x + y + z;
writeln(P);
writeln(S);
end.

2)
var a, b: integer; k: real;
begin
readln(a, b);
K := sqrt(sqr(a)+sqr(b))+((a+b)/2);
writeln(K);
end.

0 0

4 года назад

Какое количество бит при игре в крестики-нолики на поле размером 4 4 клетки получит второй игрок после первого хода первого игро

Вован72рус

Всего 16 клеток. Из формулы количества информации:
<span>2^i = 16 получаем i = 4 бита.</span>

0 0

4 года назад