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>
За 1 час стрелка поворачивается на 360/12 = 30 градусов.
Если она повернулась на бета градусов, то прошло бета/30 часов.
Показание часовой стрелки понятно, показание минутной рассчитывается.
Каждый час = 60 минут минутная стрелка поворачивается на 360 градусов,
То есть время равно int(beta/30) часов и (beta mod 30)*60 минут.
Здесь int - это "целая часть числа", mod - "остаток от деления".
Ответ:1)Ира
Объяснение:
Ира сказала один раз неправду и один раз правду, Соня только правду, а Таня пыталась скрыть Иру и свалить все на Соню, поэтому она сказала только ложь.
2)Реал-1, Барселона-2 и Манчестер-3.
Аня - туристка, Боря - художник, Гриша - футболист, Дина - певица, Вася - танцор
A:=x+1/x-1
b:=a;
for i:=1 to x do b:=b*a;
b:=b+18*x*(y*y);