Var i : Integer;
Begin
For i:=100 to 999 do
If (i mod 4 = 2) and (i mod 5 = 2) and (i mod 6 = 2) then Writeln(i);
end.
Результат:
122
182
242
302
362
422
482
542
602
662
722
782
842
902
962
К примеру число aнужно округлить тогда a mod 10; создаем ячейку для округленного числа k:=a mod 10 и b:=a-k; Всё
Задание 1. Будет под цифрой 1..
Задание 2. Рекурсивный<span>
Задание 3.Точно не скажу ,но скорее всего "закрасить".
Задание 4. "7"
Задание 8. "1"</span>
Нужно что-то присвоить функции для случая, когда (2*a+b-c)<0
Например, так:
function sqrt1 (a, b, c: real): real;
begin
if (2 * a + b - c) < 0 then
<span>begin writeln (' complex number '); sqrt1:=-1; end</span>
else sqrt1:= sqrt(2 * a + b - c);
<span>end;</span>
1) Обмен данными между ПК, и т.п.
Обеспечение системы
Загрузка программ в память
Организация диалога
2) Windows, Linux, Mac OS.
3)Обмен информацией командами или инструкциями между человеком и ЭВМ
4)В процессе практической работы на компьютере у пользователя периодически возникают проблемы, связанные как с работой системы в целом, так и отдельных устройств и программ: замедление работы, нехватка места на диске, ошибки выполнения программ, их зависание и т.п. Для выявления таких проблем, устранения причин их возникновения и обслуживания отдельных устройств в состав системного программного обеспечения включают сервисные программы (утилиты).
(Твой Одноклассник)