c++ В сказочной стране Лукоморье в целях экономии топлива все грузы перевозят на Змей Горыночах, имеющих свой бортовой номер от 1 до 100. Количество голов Змея(случ. число от 1 до 1000) определяет его грузоподъемность. В архиве К. Бессмертного заведено личное дело на каждого Змея Горыноча с информацией о количестве голов и бортовом номере Однажды на Калиновом мосту грузовым Змеем Горыночем была сбита гражданка Баба Яга. Нарушитель скрылся, но свидетели показали, что число голов Змея кратно его бортовому номеру Д. Никитичу следователю по ДТП выяснить нарушителя.

//Программа на языке паскаль:

program zagadka;

var s: String;

begin

writeln('Сидит девица в темнице, а коса на улице.');

readln(s);

while(s <> 'Морковь')

do begin

writeln('Не угадал. Попробуй еще раз');

readln(s);

end;

writeln('Правильно. Угадал!');

end.

/*

Описание:

Выводим пользователю загадку и просим его ввести ответ. Пока пользователь не угадает, просим его снова и снова вводить ответ, предварительно написав, что он ошибся. Как только мы получаем правильный ответ, программа выводит пояснение пользователю, где пишет, что тот угадал. Программа заканчивает свою работу.

1.program z;
var a:array [1..10] of integer; i,t:integer; s:real;
begin
for i:=1 to 10 do
begin
a[i]:=random(1,100);
write(a[i]:4);
if (odd(i)) and (odd(a[i])) then
begin
s:=s+a[i];
t:=t+1;
end;
end;
writeln;
write('Cреднее арифметическое = ',s/t);
end.
2.program z;
var a:array[1..10] of integer; max,i:integer;
begin
writeln('Исходный массив');
for i:=1 to 10 do
begin
a[i]:=random(1,100);
write(a[i]:4);
if a[i]>max then max:=a[i];
end;
writeln;
writeln('Измененный массив');
for i:=1 to 10 do
begin
if not(odd(a[i])) then a[i]:=max;
write(a[i]:4);
end;
end.