CLS
n = 0
FOR i = 1 TO 9
FOR j = 0 TO 9
FOR k = 0 TO 9
c1 = i <> j AND i <> k AND j <> k
IF c1 THEN c1 = (i + j + k) MOD 7 = 0
IF c1 THEN c1 = (100 * i + 10 * j + k) MOD 7 = 0
IF c1 THEN
PRINT i; j; k
n = n + 1
END IF
NEXT k
NEXT j
NEXT i
IF n = 0 THEN PRINT "Нет решения"
<em><u>Тестовое решение:</u></em>
3 2 9
3 9 2
5 1 8
5 8 1
//Pascal ABC.NET 3.1 сборка 1256
Var
x,y:real;
begin
readln(x);
if x>0 then y:=5*x else y:=x*x;
writeln(y);
end.
Пример ввода:
-1.1
Пример вывода:
1.21
Var
a, b: integer;
begin
Write('Введите через пробел делимое и делитель: ');
Readln(a, b);
Writeln(a, '/', b, '=', a div b, ', остаток ', a mod b)
end.
Тестовое решение:
Введите через пробел делимое и делитель: 1564 137
1564/137=11, остаток 57
22180=2.218·10⁴
Мантисса 2.218, порядок +4
Или, в нормализованном виде, 22180=0.2218·10⁵ и тогда
мантисса 0.2218, порядок +5
Получится квадрат
Тут все легко просто представьте это в уме и все получится))
