Var i:integer;
x:array[1..5]of integer;
begin
for i:=1 to 5 do
begin
if i<>5 then read(x[i+1])
else read(x[1]);
end;
end.
Самое простое решение-считывать сразу в сдвинутом состоянии.

0 0

4 года назад

Помогите срочно Паскаль абц

Ари99 [17]

Ответ:

var x:Real;

begin

write ('x = ');

Readln(x);

if x<0 then Write('y = ',x*x) else

if x>2 then Write('y = ',(3*x-1)/(2*x)) else

Write('y = ',sqr(x)*x+5)

end.

0 0

1 год назад

Срочно по информатике, заранее спасибо

Shveda-Ru [121]

1) интер 2) стрил алт Т и Ф3

0 0

3 года назад

Рассчитайте обьем видеопамяти , необходимой для хранения графического изрбражения , занимаешего весь экран монитора с разрешение

mrkotyra

65 536 - количество цветов в палитре.
65 536 =2^(16) ---> 16 бит - один пиксель
1280 * 1024 * 16 = 2^8 * 5 *2^(10) * 2^4 (бит) = 5*2^(22) (бит)=
=5*2^(19) байт = 5*2^9 Кбайт =2,5* 2^(10) Кбайт = 2,5 Мбайт

0 0

4 года назад