Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
смотря какой пентиум 2 32б
Объяснение:
насколько знаю 32
программа на языке pascal, успехов в учебе.
program pr;
var n,m,z,k,i,vm: integer;
begin
readln (n,m,z);
vm: =n*60+m;
i: =1;
while i< =vm do
k: =k+1;
i: =i+z;
end;
writeln (k);
readln;
end.
qbasic не знаю, знаю только вижуал бэйсик
for i = 1 to 10
a(i) = i
next i
for i = 1 to 5
b = a(10+1-i)
a(10+1-i) = a(i)
a(i) = b
s = 0;
for i = a to b
if (i mod 2 =1) and (i mod 3 = 0) then
s = s + 1
end if
Популярные вопросы