Составить программу по этой задаче на языке VBA, используя оператор цикла for.

на python:

def countvowel(string):       countvowel = 0;       for i in string:               if  i == 'а' or i == 'е' or i == 'ё' or i == 'и' or i == 'о' or i == 'у' or i == 'ы' or i == 'э' or i == 'ю' or i == 'я':                     countvowel+=1      return countvowel            lst = ['кошка','кофе','телевизор','автомобиль']rang = range(len(lst))for i in rang:       lst[i] = countvowel(lst[i])print(lst)

программа на языке 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

begin

k: =k+1;

i: =i+z;

end;

writeln (k);

readln;

end.

эти знаки изображали человека и части его тела, орудия труда, оружие, лодки, животных, птиц, рыб, растения, поля, воды, горы, звёзды и т. д. - т.е. конкретные предметы. это было начало письма. письменные знаки, засвидетельствованные древнейшими памятниками, могут быть без труда возведены к их первоначальному рисуночному образу.

разделим монеты на кучки 1002 1002 и одна монета

1-е взвешивание сравниваем 1002 и 1002

если они одинаковые то они настоящие и значит осталось сравнить одну монету с какой-нибудь из этих кучек и выяснить тяжелее она или легче

если одна из куч тяжелее то ее делим пополам и снова взвешиваем

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