ПОМОГИТЕ, ПОЖАЛУЙСТА! ЛЁГКАЯ ЗАДАЧА ПО ПАСКАЛЮ!!!! Дан текст. Удвоить все буквы этого текста, стоящие в чётных позициях.
Ответы
Ответ дал:
0
var
s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if i mod 2 =0 then write(s[i],s[i])
else write(s[i]);
end.
s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if i mod 2 =0 then write(s[i],s[i])
else write(s[i]);
end.
Ответ дал:
0
А можете решить ещё одну задачу, пожалуйста?)
Ответ дал:
0
могу
Ответ дал:
0
ПОМОГИТЕ, ПОЖАЛУЙСТА!!! ЛЁГКАЯ ЗАДАЧА ПО ПАСКАЛЮ! Дан текст, слова которого разделены одним пробелом. После последнего слова стоит точка. Переставьте первое слово в конец строки.
Ответ дал:
0
https://znanija.com/task/21892030
Ответ дал:
0
Это ссылка на эту задачу, чтобы вы получили баллы
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад