Program lol; var a: integer; begin for a: =100 downto 1 do begin if a mod 3 = 0 then writeln(a); end; end.p.s. в строке for a: =100 downto 1 do вместо 100 вставь нужное тебе значение советую меньше 1000 а то долго считает
Спасибо
Ответ дал: Гость
varslovo,simval: string; i,k: integer; begink: =0; write('vvedite slovo '); readln(slovo); write('vvedite simval '); readln(simval); for i: =1 to length(slovo) dobeginif slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 thenwriteln('yes vstre4aets9 ',k,' raz, na pozicii ',i)else writeln('no'); writeln; end.вот в одном решении
Ответ дал: Гость
специалист сельского хозяйства с высшим образованием, всесторонними знаниями в области агрономии.
уличный танец, одно из течений хип-хоп культуры.
непродолжительная по времени художественно составленная последовательность кадров.
единица измерения расстояния в некоторых европейских неметрических системах мер
светозащитные устройства, состоящие из вертикальных или горизонтальных пластин.
морская рыба семейства .
ехнические приёмы получения движущихся изображений, иллюзий движения и/или изменения формы объектов (морфинг) с нескольких или множества неподвижных изображений и сцен.
сладкое блюдо кухни.
универсальный прил. 1) охватывающий всё или многое; всеобъемлющий. 2) разными знаниями, навыками; разносторонний. 3) выполняющий разнообразные функции.
Популярные вопросы