Информатика 10 класс. Паскаль. ОЧЕНЬ СРОЧНО
Для введённой пользователем строки напечатать позиции всех входящих в неё символов (кроме пробелов) в алфавитном порядке. Для символов, которые встречаются несколько раз, напечатать их позиции в одной строке . Например ,для слова PASKAL
A-2 5
C-4
L-6
P-1
S-3
Составь сам но вот основные идеи:
1)Базы данных позволяют хранить кучу инфы про дохренилион звёзд, планет и д.р.
2)Современные цифровые а тем более инфракрасные телескопы несовершенны, по этому картинку с них приходится долго редактировать разными прогами
3)Планеты сами по себе не видны т.к. не светятся поэтому их местоположение можно узнать лишь рассчитав изменение траектории звезд из-за гравитации этих планет. Такие тонкие расчёты может провести только комп.
4)Да и вообще всем современным оборудованием руководит компьютер упрощая жизнь учёного т.к. в современном оборудовании слишком много данных
1)
var
a:array[1..16] of integer;
i,k,s:integer;
begin
randomize;
For i:= 1 to 16 do
begin
a[i]:= -30+random(61);
write(a[i], ' ');
end;
For i:= 1 to 16 do
if a[i] < 0 then k:= k+1;
Writeln;
Writeln(k);
end.
Пример:
-21 4 -11 30 -16 -7 26 -14 -20 10 -18 8 -26 -13 -20 -15
11
2)
Изменить условие "if a[i] < 0 then k:= k+1;" на "if a[i] > 0 then s:= s +a[i];"
и "writeln(k);" на "Writeln(s);"
Юра занимается регби и учиться на юриста. Влад занимается теннисом и через год будит физиком. Тимур занимается бегом и учиться на врача.