1. замените слово "мама" на "папа" ( в паскале) 2. определите является ли текст перевертышем( например, как слово шалаш) (тоже паскаль)
180
365
Ответы на вопрос:
1) program ab; vars: string; i,k: integer; begins: ='мама'; for i: =1 to length(s) do begin k: =pos('м',s); if k< > 0 then begin delete(s,k,1); insert('п',s,k); end; end; writeln(s); end. 2 )program ab; vars: string; i,k,n,j: integer; beginreadln(s); n: =0; k: = length(s) ; for i: = 1 to (k div 2) do if s[i]< > s[k-i+1] thenn: =1; if n=0 then writeln('перевёртыш') else writeln('не первёртыш'); readln(j); end.
program abc;
uses crt;
var name : string;
begin
write('как завут вашего друга? ');
readln(name);
write('вашего друга зовут ', name,'.');
end.
Популярно: Информатика
-
Lena16312127.02.2022 08:37
-
Yulia2708201724.07.2021 06:29
-
11111119927.07.2020 17:48
-
Vitek361323.05.2023 08:01
-
ymnik334519.04.2020 18:28
-
masky80984Женя26.05.2020 17:55
-
ilyamilovanov115.03.2022 09:13
-
BUPA128.04.2021 14:08
-
Yulia0105205.01.2020 14:57
-
sofiamazanova02.09.2022 12:42