Uses crt;
var a:array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(61)-35;
write(a[i]:4);
end;
writeln;
for i:=1 to 10 do
begin
write(a[i]-16:4);
end;
end.
Мне кажется что единичным в данном случаи. Так как Коле не понравился кретный кинофильм, а не вообще кинофильмы.
Ответ:
алг
нач
цел n,t,m,r,s
ввод n
ввод t
ввод m
ввод r
ввод s
если m*n+r*t=s то вывод "спасибо за покупку" все
если m*n+r*t>s то вывод "доплатите еще" все
если m*n+r*t<s то вывод "возьмите сдачу" все
кон
Ну я не могу сказать правильно, но вот как я решила:
20*30=600 (к)
30*2=60 (к)
600+60=660(к)
Ответ : 660 мест в зале.
Я не знаю правильно ли нет.. Спроси у родителей, на всякий случай!
4 Мбайт = 4000 Кбайт = 4000000 байт = 32000000 бит
Про ступень не знаю