Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var a,s : string;
i: integer;
begin
writeln ('введите слово и символ-');
readln (s,a);
for i: =1 to length(a) do
if copy (s,i,1)=a then writeln (i);
readln
end.
5`120`000 бит = 640 000 байт = 625 кб
read(n);
s = str(n);
n1 : = int(s[1]);
n2 : = int(s[2]);
n3 : = int(s[3]);
if (n1+n2+n3) mod 2 = 0 then writeln("сумма чисел четная")
а необходимо
б достаточно
в необходимо
г достаточно
д необходимо и достаточно
Популярные вопросы