Var s,r,k: string;
j: integer;
begin
write('строка: '); readln(s);
foreach k in s.Split(' ').Distinct do
begin
j:=0;
foreach r in s.Split(' ') do
if r=k then j:=j+1;
writeln('слово ','"',k,'"',' встречается ',j,' раз');
end;
<span>end.
</span>
Нет, не равны (наверно). Так как число 999 на два без остатка не делится. (Наверно это правильно)
А) Тема письма, сам текст письма (тело), получатель (кому) и отправитель (от кого)
Б) Телеконференция позволяет обмениваться звуковой и видео информацией, а электронная почта - только графической и текстовой.
В) Файлы
Задание 2.
Vi:
1. 109%.
2. 76%.
3. 88%.
4. 84%.
5. 116%.
6. 87%.
7. 111%.
8. 110%.
9. 99%.
10. 101%.
11. 100%.
12. 112%.
Максимум: 12. Декабрь - 112%.
Среднее: 92%.
Oi:
1. Нет - -9%.
2. Есть - 24%.
3. Есть - 12%.
4. Есть - 16%.
5. Нет - -16%.
6. Есть - 13%.
7. Нет - -11%.
8. Нет - -10%.
9. Есть - 1%.
10. Нет - -1%.
11. Нет - 0%.
12. Нет - -12%.
Максимум: 2. Февраль - 24%.
Среднее: 0.6%.
Первое не могу сделать, так как не понимаю sin и cos.
12-2
13- E:\Класс7\Физика\Задача5.doc
14- E:\TOM3\Doc3.doc