1)
var
s: string;
i: integer;
begin
writeln('Введите слово');
readln(s);
for i:= 1 to length(s) do
if i mod 2 = 1 then s[i]:= ' ';
writeln('Полученная строка: ', s);
end.
2)
var
s: string; {Программа определяет только английские буквы x или e, т.к. в задании указаны английские буквы}
i: integer;
xchar, echar: integer;
begin
writeln('Введите строку');
readln(s);
for i:= 1 to length(s) do
begin
if s[i] = 'x' then xchar:= i;
if s[i] = 'e' then echar:= i;
end;
if xchar < echar then writeln('буква "x" встретилась раньше');
if echar < xchar then writeln('буква "e" встретилась раньше');
if (echar = 0) or (xchar = 0) then writeln('одна из букв "x" или "e" не встретилась');
end.
3-е задание вообще непонятно. Произведение каких цифр описать содержание задания подробнее.
Решение
Объяснение:
1. Создать 2 переменные, сделать проверку через if Если a>b то writeln(a+b) else writeln(a*b) После этого writeln("ЗАДАЧА РЕШЕНА")
2.Создать переменную n(Сколько лет дракону) и h(Голова) Так же сделать проверку через if сколько ему лет Если >100 то n*3 Если <100 То (100*3)+((n-100)*2) и записать в переменную h
Что бы получить глаза достаточно h*2 (если у дракона 2 глаза)
3.Создать 2 переменные, сделать проверку через if допустим если a<b writeln(a) else (b)
4.Создать переменную в которую пользователь будет вводить число,
После этого надо его делить на 4 и округлять в меньшую сторону
Если число будет 1 - Зима Если 2 - Весна 3 - Лето 4-Зима
5. -
6. Создаем 2 переменные a,b - Записываем в них длины сторон после умножаем a*b
7.Создаем переменную скорости и расстояния - Потом Расстояние делим на скорость 600/120 И получаем время в полете
8.-