Uses crt;
var s1, s2: String;
d1, d2: Integer;
begin
readln(s1, s2);
d1 := length(s1);
d2 := length(s2);
if d1 > d2 then writeln('Строка ', s1, ' длиннее') else writeln('Строка ', s2, ' длиннее');
end.
Program Repeat;
varX: integer;
begin
repeat
Write ('Значение X= ');
Readln (X);
if X <> 111 then
until X = 111;
Writeln ('Молодец!');
<span>end.</span>
<em>Общ.утв - Все люди любят когда их хвалят Каждый человек на земле может путешевствоватьВсе животные имеют обмен веществ Частн.утв - Некоторые животные уже вымерлиНекоторые люди болеют раком Некоторые бабочки не могут летать из - за нехватки пыльцы на крыльях Обществ.сужНи один из людей не может слетать на солнце Ни один из животных не может говорить по человечьему языку (кроме попугая)Ни один из новорожденных детей не может бегать Частн.сужНекоторые компьютеры не являются рабочими Некоторые животные не являются вымершими</em><span><em>Некоторые люди не являются животноводами</em></span>
#include <iostream>
#include <cstdlib>
using namespace std;
int main(){
int a[16];
int i=0,c;
for(i; i<16; i++){
a[i]=rand()%40+10;
cout<<a[i]<<' ';
}
i=0;
for(i; i<4; i++){
c=a[i];
a[i]=a[7-i];
a[7-i]=c;
}
for(i=8; i<12; i++){
c=a[i];
a[i]=a[23-i];
a[23-i]=c;
}
cout<<endl;
for (i=0; i<16; i++){
cout<<a[i]<<' ';
}
return 0;
}
Вроде правильно, проверь. Вопросы, недочеты в ЛС