4758 р от от. л. ллллл о. тл тл от. оооо. оои. о.
var
a, b: string;
c: integer;
begin
writeln('Введите первое слово: ');
readln(a);
writeln('Введите второе слово: ');
readln(b);
c := length(a) - length(b);
if c = 0 then writeln('Длины слов равны')
else if c > 0 then writeln('Первое слово длиннее второго на ', c)
else writeln('Второе слово длиннее первого на ', -c)
end.
2)
var a: string;
begin
writeln('Введите предложение: ');
readln(a);
case a[length(a)] of
'.': writeln('Предложение повествовательное');
'!': writeln('Предложение восклицательное');
'?': writeln('Предложение вопросительное');
end;
end.
3)
var
a: string;
t: char;
begin
writeln('Введите слово: ');
readln(a);
t := a[1];
a[1] := a[length(a)];
a[length(a)] := t;
writeln('Полученное слово: ', a)
end.<span> </span>
Есть переменная, равная 0 и есть цикл в котором сравнивается поочередно значения из массива и эта переменная, если значение переменной меньше, то переменная принимает значение данного элемента массива.
В итоге переменная содержит самое большое значение из массива.
Истинные :
В нашей классной комнате жарко.
Наш класс под номером 31.
В нашем классе есть зеленая доска.
В нашей классной комнате уютно.
Ложные :
В нашем классе стены зеленого цвета.
В нашем классе нет доски.
В нашей классной комнате 25 парт.
В нашей классной комнате коричневая дверь.
uses crt;
var b,x:real;
begin
write('Введите длину ткани: ');
readln(x);
write('Введите стоимость квадратного метра ткани: ');
readln(b);
writeln('Стоимость ткани длиной ',x,' метров равна ',0.8*x*b);{кусок длиной 1.25 м и шириной 0.8 метра имеет площадь 1 квадратный метр и стоит ровно B рублей}
end.
