var s : string; symb : char; i : longint; begin readln(s); readln(symb); if pos(symb,s)=0 then writeln('в этом слове нет этого символа') else begin i: =0; while pos(symb,s)< > 0 do begin write(pos(symb,s)+i,' '); i: =i+1; delete(s,pos(symb,s),1); end; end; writeln; writeln(i); end.
Ответ дал: Гость
var a,b: integer;
is7: boolean;
begin
readln(a);
b: =0;
is7: =false;
while a < > 0 do
begin
b: =b+a mod 10;
if a mod 10 = 7 then
is7: =true;
a: =a div 10;
end;
wrtieln('сумма цифр: ', b);
write('цифра 7 ');
if is7 then writeln('есть') else writeln('нет');
readln;
end.
Ответ дал: Гость
s : = 1 ;
for i : = 1 to n do
if a[i] mod 3 = 0 then
s : = s * a[i];
writeln(s);
Ответ дал: Гость
а) наличие электромагнитного излучения, сrt б) ухудшение качества изображения при изменении угла обзора, crt в) компактные размеры lcd г) достаточно сильное ухудшение качества изображения при изменении рекомендуемой производителем разрешающей способности crt д) формирование изображения с лучей электронных пушек, crt е) меньший вред для здоровья человека при работе. lcd
Популярные вопросы