помогите с информатикой, 2 задание на фото
Помогите с информатикой, 2 задание на фото
![](/content/imgs/77/https://ru-static.z-dn.net/files/d2e/07d298ac8212ee40b28792d865a993b3.jpg)
Ответ на пункт а)
program zad1;
var s:string;
i, kol:integer;
begin
writeln ('Введите слово')!
readln(s);
kol:= 0;
for i:= 1 to length(s) do
kol:= kol + 1;
writrln (kol);
readln;
end.
Ответ на пункт б)
program zad2;
var s:string;
begin
writeln ('Введите слово');
readln(s);
if s[1] = s[length(s)] then
writeln ('Совпадают')
else
writeln ('Не совпадают');
end.
Ответ на пункт в)
program zad3;
var s:string;
kol:integer;
begin
writeln ('Введите слово');
readln(s);
kol:=length(s);
Writeln (s[1], s[2], s[kol]);
end.
Ответ на пункт г)
program zad4;
var s:string;
begin
writeln ('Введите слово');
readln(s);
if odd(length(s) + 1) then
writeln ('Чётное')
else
writeln ('Не чётное');
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.