1) Program task3; var a, ost, k: integer; begin write (Ввести число a ->'); read (a); k:=0; while a<>0 do begin ost:= a mod 10; if ost mod 2 = 0 then k:=k+1; a := a div 10 end; writeln (k); end.
2) Эту не знала как исправить, поэтому в основном просто переписала :)
Program task4; var a, s, t, i, k: integer; n: real; begin write ('Введи кол-во дней -> '); readln (a); k:=0; s:=0; For i := 1 to a do begin write ('введи температуру в ',i,-ый день'); readln(t); if t>0 then begin k:=k+1; s:=s+t; end; end; writeln('Кол-во дней, в течение которых проводилось наблюдение ', a); writeln('Кол-во дней с t>0 = ', k); n:=s/k; writeln (Средняя температура в дни с t>0 ',n) end.
Интернет стал не только познавательной страничкой, но также открыл перед нами целую систему заработка в онлайн режиме, что значительно экономит ваше время и деньги. Вы сможете завести свой бизнес в интернете, при этом вы будете сами себе начальником. Никто и никогда не выступит против того, что вы немного проспали или опоздали в сети. Как говорится, здесь ты сам себе начальник и подчиненный. Ваша онлайн работа зависит от вашей продуктивности. Здесь вы уже сами заинтересованы поработать на результат.
Для начала нужно знать несколько простых обозначений. Например, что с собой представляет облако тегов. Это сделать ваши данные видимыми для всех, он представлен множеством ключевых слов, которые расписаны различными размерами шрифта. Если у вас крупный текст, значит, ключевое слово будет употребляться в контексте самого облака чаще. На основе частоты употребления слов в тексте на сайте и базируется автоматическое формирование облака тегов. Если возникают какие-нибудь проблемы с предлогами или ошибками в тексте, вы можете вносить коррективы вручную.
Далее поговорим о Web 3.0. Согласно технологической платформе Web 2.0. талантливыми профессионалами создается высококачественный сервис и контент. Здесь создается масса полезного и интересного контента, который по-настоящему заинтересует любого потребителя. Чтобы попасть в команду к таким профессионалам нужно изрядно потрудиться. Для этого вам следует пройти определенную практику копирайтером на любой текстовой бирже. Можно с уверенностью сказать, что заработать на Web 3.0 может каждый талантливый журналист. Главное, умение и старание предоставить себя в лучшем виде, все остальное дело технике.
Зарабатывать в Интернете вам не помешает даже долгота дня. Единственное влияние она может оказать ночью, когда работы вполне хватает, но ваши глаза закрываются, и больше нет мочи сидеть за работой, но вы все равно боритесь со сном с крепкой чашки кофе. Что же поделать, таковы условия работы. Не будете работать, не получите и заветных денег. Зато, лучше очень хорошо потрудиться, чтобы потом отлично отдохнуть. Согласны? Тем более, вы работаете сами на себя, поэтому всегда контролируете ситуацию. Устали сильно? Значит, следует отдохнуть, чтобы в дальнейшем с большей хваткой и азартом приняться за работу. Всегда нужно верить в свои силы, такая вера давать потрясающий результат.
1) Program task3;
var a, ost, k: integer;
begin
write (Ввести число a ->'); read (a);
k:=0;
while a<>0 do begin
ost:= a mod 10;
if ost mod 2 = 0 then k:=k+1;
a := a div 10
end;
writeln (k);
end.
2) Эту не знала как исправить, поэтому в основном просто переписала :)
Program task4;
var a, s, t, i, k: integer; n: real;
begin
write ('Введи кол-во дней -> ');
readln (a);
k:=0;
s:=0;
For i := 1 to a do
begin
write ('введи температуру в ',i,-ый день');
readln(t);
if t>0 then
begin
k:=k+1;
s:=s+t;
end;
end;
writeln('Кол-во дней, в течение которых проводилось наблюдение ', a);
writeln('Кол-во дней с t>0 = ', k);
n:=s/k;
writeln (Средняя температура в дни с t>0 ',n)
end.
Интернет стал не только познавательной страничкой, но также открыл перед нами целую систему заработка в онлайн режиме, что значительно экономит ваше время и деньги. Вы сможете завести свой бизнес в интернете, при этом вы будете сами себе начальником. Никто и никогда не выступит против того, что вы немного проспали или опоздали в сети. Как говорится, здесь ты сам себе начальник и подчиненный. Ваша онлайн работа зависит от вашей продуктивности. Здесь вы уже сами заинтересованы поработать на результат.
Для начала нужно знать несколько простых обозначений. Например, что с собой представляет облако тегов. Это сделать ваши данные видимыми для всех, он представлен множеством ключевых слов, которые расписаны различными размерами шрифта. Если у вас крупный текст, значит, ключевое слово будет употребляться в контексте самого облака чаще. На основе частоты употребления слов в тексте на сайте и базируется автоматическое формирование облака тегов. Если возникают какие-нибудь проблемы с предлогами или ошибками в тексте, вы можете вносить коррективы вручную.
Далее поговорим о Web 3.0. Согласно технологической платформе Web 2.0. талантливыми профессионалами создается высококачественный сервис и контент. Здесь создается масса полезного и интересного контента, который по-настоящему заинтересует любого потребителя. Чтобы попасть в команду к таким профессионалам нужно изрядно потрудиться. Для этого вам следует пройти определенную практику копирайтером на любой текстовой бирже. Можно с уверенностью сказать, что заработать на Web 3.0 может каждый талантливый журналист. Главное, умение и старание предоставить себя в лучшем виде, все остальное дело технике.
Зарабатывать в Интернете вам не помешает даже долгота дня. Единственное влияние она может оказать ночью, когда работы вполне хватает, но ваши глаза закрываются, и больше нет мочи сидеть за работой, но вы все равно боритесь со сном с крепкой чашки кофе. Что же поделать, таковы условия работы. Не будете работать, не получите и заветных денег. Зато, лучше очень хорошо потрудиться, чтобы потом отлично отдохнуть. Согласны? Тем более, вы работаете сами на себя, поэтому всегда контролируете ситуацию. Устали сильно? Значит, следует отдохнуть, чтобы в дальнейшем с большей хваткой и азартом приняться за работу. Всегда нужно верить в свои силы, такая вера давать потрясающий результат.