Составить программу в паскале с использованием циклических операторов: три приятеля были свидетелями дорожного происшествия. номер машины(четырехзначный) ни один из них не запомнил. однако один заметил,что этот номер делиться на 2,7 и 11; другой заметил, что в номере учавствуют только две цифры, а третий заметил,что сумма цифр равна 30 . какой номер автомобиля?

233

500

Посмотреть ответы 2

Ответы на вопрос:

Alex30050

Информатика

4,6(11 оценок)

Function colcifr(a: integer): integer; var s, k: string; i, j: integer; begin i : = a; repeat str(i mod 10, k); i : = i div 10; if (pos(k, s) = 0) then begin s : = concat(s, k); inc(j); end; until (i = 0); colcifr : = j; end; function sum(i: integer): integer; var a, b: integer; begin a : = i; repeat b : = b + a mod 10; a : = a div 10; until (a = 0); sum : = b; end; var i: integer; begin for i : = 1000 to 9999 do if (i mod 2 + i mod 7 + i mod 11 = 0) then if (colcifr(i) = 2) then if (sum(i) = 30) then writeln(i); end. 8778

Pelyovin1980

Информатика

4,7(17 оценок)

5минут - это 5 х 6 = 300 с. за это время будет передано 300 х 16 000 000 = 4 800 000 000 бит. переводим в гигабайты: 4 800 000 000 / (1024³ х 8 ) ≈ 0.56 гб ответ: 0.56 гб