var slovo,simval: string; i,k: integer; begin k: =0; write('введите имя и фамилию '); readln(slovo); write('введите символ '); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции ',i)else writeln('нет'); end.
я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой
Ответ дал: Гость
var
i: integer;
s: real;
m: array[1..2,1..6] of real;
begin
s: =0;
for i: =1 to 6 do
begin
readln(m[1,i]);
readln(m[2,i]);
s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;
end;
writeln(s);
end.
Ответ дал: Гость
я поеду в москву и если встречу там друзей, то интересно проведем время.решение: м – я поеду в москвув – я встречу там друзей м×( в ® и )и – мы интересно проведем там время
если я поеду в москву и встречу там друзей, то интересно проведем время. решение: м×в ® и
не верно, что если погода пасмурная, то дождь идет тогда и только тогда, когда нет ветра.решение: д – идет дождьп – пасмурная погода в – дует ветер
Популярные вопросы