Program num1;
Uses crt;
Var
a :array [1..10] of integer;
i : integer;
Begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']=');readln(a[i])
end;
for i:=1 to 10 do
if a[i]<0 then a[i]:=abs(a[i]);
writeln('********************************');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
End.
Uses crt;
var input, betw:integer;
begin
readln(input);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw div 10;
writeln('Тысяч = ', betw);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw mod 10;
writeln('Сотен = ', betw);
betw := input;
betw := betw div 10;
betw := betw mod 10;
writeln('Десятков = ', betw);
betw := input;
betw := betw mod 10;
writeln('Единиц = ', betw); end.
…И снилось мне, что мы, как в сказке,
Шли вдоль пустынных берегов
Над диким синим лукоморьем,
В глухом бору, среди песков.
Был летний светозарный полдень,
Был жаркий день, и озарен
Веет, лес был солнцем, и от солнца
Веселым блеском напоен.
Узорами ложились тени
На теплый розовый песок,
И сипни небосклон над бором
Был чист и радостно-высок.
Играл зеркальный отблеск моря
В вершинах сосен, и текла
Вдоль по коре, сухой и жесткой,
Смола, прозрачнее стекла...
Мне снилось северное море,
Лесов пустынные края...
Мне снилась даль, мне снилась сказка –
<span>Мне снилась молодость моя.</span>
Эм... Очень глупые вопросы, либо не правильно написаны но вот :
2) Сережа приходит в школу в 8 часов
3) Названия городов пишутся с Заглавной буквы: Москва Киев Сочи
4) Дробь 3/8 ПРАВИЛЬНАЯ
5) Эм, ну Тополь тоже значит поглощает углекислый газ
Feniy