Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
решение: наливаем в 5-вую и из нее в 3-вую, в ней осталось 2 литра. из 3-ой выливаем все обратно, оставшиеся 2 литра выливаем в 3-вую. затем наполняем 5-вую и из нее отливаем 1 литр в 3-вую, итак в 5-литрой 4 литра
б< т
к< л
с< е
липа ниже березы
к< л< б< т
сосна выше тополя
к< л< б< т< с< е
самое высокое ель
самое низкое клен
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
var
b1,b2,i,n,p: integer;
begin
write('введите n'); readln (n); b1: =5; writeln ('1 элемент = ', b1);
p: =-1;
for i: =2 to n do
p: =p*(-1);
b2: =p*b1-8;
writeln (i,' элемент = ', b2);
b1: =b2;
end;
end.
Популярные вопросы