Если сравнение по длине, то:
javascript: var с1=prompt().length,с2=prompt().length;alert(с1>с2?"Первая":с2>с1?"Вторая":"Равны");
Чтение Задание 1. Прочитай текст. Английский плюс CD-ROM: блок 9 более высокий тест. Торговый центр Mall of America-это действительно большой торговый центр в США. Это больше, чем любой торговый центр в Европе! Расстояние до торгового центра составляет 390 000 метров?. Он имеет семь этажей и 52 Шора. Здесь четырнадцать кинотеатров и двадцать ресторанов, в торговом центре нет ни одной гостиницы, зато есть железнодорожный вокзал и автовокзал. В городе Миннеаполис есть несколько отелей. Город находится примерно в тридцати минутах езды от торгового центра. Меня зовут Бет, и моя семья живет в Миннеаполисе. Мы очень любим ходить по магазинам, и торговый центр-наше любимое место! Пишите правильно или неправильно: 1. Торговый центр Америки огромен 2. Торговый центр Америки находится в США 3. 3. На одном этаже расположены 52 магазина. 4. В торговом центре " 5 " есть места для фильмов. Бет не очень любит ходить по магазинам ответьте на этот во Насколько велик торговый центр Америки? 7. Сколько времени нужно, чтобы добраться от Миннеаполиса до торгового центра? письменные задания. Выберите одну из следующих тем. Йо вы должны: * высказать свое мнение по теме. Соедините свои идеи в один абзац. Используйте правильную форму модальных глаголов: нельзя, нужно, должно. Используйте пунктуацию соответствующим образом. Тема 1. Наш район какое место вы хотели бы посетить в своем соседстве? Почему тебе нравится это место? Какие достопримечательности вы хотели бы там увидеть? Вы бы хотели жить в этом месте? Почему? Тема 2. Транспорт какие виды транспорта вы знаете? Кто из них более опасен? Почему ты так думаешь? Разве это вредит жизни людей? Почему? Какой вид транспорта вы предпочитаете? Почему?
1.
program z1;
var a:array [1..10] of integer;
i,k:integer;
begin
write ('Введите элементы массива через пробел и нажмите Enter ');
for i:=1 to 10 do read (a[i]);
write ('Массив: ');
for i:=1 to 10 do write (a[i],' ');
writeln;
write ('Номера элементов больше 5: ');
for i:=1 to 10 do if a[i] > 5 then
begin
write (i,' ');
k:=k+1
end;
writeln;
writeln ('Элементов больше 5: ',k)
end.
2.
program z2;
var s:string;
begin
readln (s);
while pos('о',s)<>0 do delete(s,pos('о',s),1);
writeln(s)
end.
Объяснение:
Смотри картинки
2. Программа удаляет только строчные русские о
var s1,s2:string;
begin
write ('s1: ');
readln (s1);
write ('s2: ');
readln (s2);
if length (s1) = length (s2) then write ('s1 = s2')
else
if length (s1) > length (s2) then write ('s1 > s2')
else write ('s1 < s2')
end.