Создать файл содержащий сведение о телефоне абонентов Каждая запись имеет поля : фамилия абонента , год установки телефона и номер телефона. Составить программу , которая определяет абонентов с установкой телефона более 10 лет
Задача 7. ВОДОЛАЗКА Задача 2. после 6 применений 64 четных цифры (после каждого применения их количество увеличивается в 2 раза) Задача 1. не может быть Даша второй, т.к. это утверждение в 4 и 5 строках. Не может быть третьей Ира (предполагается в 3 и 5 строках). Значит первая Маша. А Даша и Ира - не призеры. Из 4-й строки получаем. что и Боря не призер. Из 1 и 3 строки получаем, что Вася - не призер (т.к. указано что Вася второй и Вася третий). Значит призер Таня (не первая и не третья, значит - вторая). Из 2 строки получаем, что и Гена не призер. Остается Антон - третий ответ: Маша, Таня, Антон Задача 3. Всего можно составить 60 трехзначных чисел. Числе. меньших 200, 12. Вероятность 12/60=0,2 Задача 9. 16 Задача 4. Можно (Земля-Марс-юпитер-Венера-Меркурий) Задача 6. 370 343 640 613 910 901 271 253 550
//PascalABC.Net 3.0, сборка 1064 var n:integer; i,d:byte; b:array[0..9] of boolean; fail:boolean; begin Write('Введите четырехзначное натуральное число: '); Read(n); for i:=0 to 9 do b[i]:=False; while (n>0) and (not fail) do begin d:=n mod 10; if b[d] then fail:=True else b[d]:=True; n:=n div 10 end; if fail then Writeln('В числе есть одинаковые цифры') else Writeln('В числе нет одинаковых цифр') end.
Тестовое решение: Введите четырехзначное натуральное число: 1263 В числе нет одинаковых цифр
Введите четырехзначное натуральное число: 1315 В числе есть одинаковые цифры
Задача 2. после 6 применений 64 четных цифры (после каждого применения их количество увеличивается в 2 раза)
Задача 1. не может быть Даша второй, т.к. это утверждение в 4 и 5 строках. Не может быть третьей Ира (предполагается в 3 и 5 строках). Значит первая Маша. А Даша и Ира - не призеры. Из 4-й строки получаем. что и Боря не призер. Из 1 и 3 строки получаем, что Вася - не призер (т.к. указано что Вася второй и Вася третий). Значит призер Таня (не первая и не третья, значит - вторая). Из 2 строки получаем, что и Гена не призер. Остается Антон - третий
ответ: Маша, Таня, Антон
Задача 3. Всего можно составить 60 трехзначных чисел. Числе. меньших 200, 12. Вероятность 12/60=0,2
Задача 9. 16
Задача 4. Можно (Земля-Марс-юпитер-Венера-Меркурий)
Задача 6.
370
343
640
613
910
901
271
253
550
var
n:integer;
i,d:byte;
b:array[0..9] of boolean;
fail:boolean;
begin
Write('Введите четырехзначное натуральное число: ');
Read(n);
for i:=0 to 9 do b[i]:=False;
while (n>0) and (not fail) do begin
d:=n mod 10;
if b[d] then fail:=True else b[d]:=True;
n:=n div 10
end;
if fail then Writeln('В числе есть одинаковые цифры')
else Writeln('В числе нет одинаковых цифр')
end.
Тестовое решение:
Введите четырехзначное натуральное число: 1263
В числе нет одинаковых цифр
Введите четырехзначное натуральное число: 1315
В числе есть одинаковые цифры