Вот, пожалуйста. Там должно все быть понятно. Я надеюсь, что правильно понял условие
Ответ:
в дату нужно написать третье
во время второе
во стоимость первое
вроде все
У тебя цикл работает, пока Y меньше 14, но внутри цикла ты Y не увеличиваешь, поэтому программа работает бесконечно и не выдаёт ответ.
Я добавил переменную i:integer (integer - чтобы работал mod(остаток от деления на число)), потому-что у нас чередуются знаки + и -. Также убрал зацикливание
program three;
var c,a,y,t,n:real;
i:integer;
begin
writeln('Введите с');
readln(c);
y:=3;
t:=0;
i:=0;
while (y<14) do begin
i:=i+1;
n:=sqr(y);
if i mod 2 = 1 then t:=t-((c-3)/n)
else t:=t+((c-3)/n);
y:=y+2;
end;
writeln(t);
end.
Ответ:
в объяснениях
Объяснение:
1)
11000_2 - настольные - 24_10
14_8 - ноутбуки - 12_10
48 = 60_q
6q = 48
q = 8
Ответ: 8
2) Ответ: 6144*32/8/1024
3) Ответ: 1250/40 с.
2е и 3е - математика
(11000_2 = 11000 в двоичной сис-ме)
Если что непонятно - спрашивай :)
Var a:array[1..10] of integer;i,k:integer;q:real;
begin
for i:=1 to 10 do begin
a[i]:=random(20);
writeln(a[i]);
q:=q+a[i];
end;
q:=q/10;
for i:=1 to 10 do
if a[i]>q then inc(k);
writeln('Чисел превышающих среднее: ',k);
end.