Program qq;
var s:string;
x,i:integer;
begin
writeln('Введите предложение:');
readln(s);
x:=length(s) div 3;
for i:=1 to x do
s[i*3]:='а';
writeln(s);
<span>end.</span>
Держи.Только я незнаю,является ли ноль положительным числом
ох уж не знаю, права я или нет :D
Но вот я бы сделала так)))
begin
readln(a); {Тут мы вводим число, которое будем проверять: делится оно на три или нет}
s := 0; {это у нас будет сумма цифр числа }
while a<>0 do
begin
b := a mod 10; {выделяем последнюю цифру}
s := s + b; {находим сумму}
a := a div 10 {переходим к следующей цифре}
end;
if s mod 3 = 0 then {ну а вот тут, как раз, проверяем}
writeln('число делится на три')
else
writeln('число не делится на три')
end.
Компьютера)))))))))))))эээх как же легко