Задание 1: 4132
4 Экзамен | ЕГЭ | Информатика | Литература
1 Экзамен | ЕГЭ | Информатика
3 Экзамен | ЕГЭ
2 Экзамен & ЕГЭ & Информатика
Задание 2: 3124
3 рыбки
1 рыбки & аквариум
2 рыбки & аквариум & гуппи
4 рыбки & аквариум & гуппи & купить
Задание 3: 3421
3 Сок | Нектар
4 Сок
2 Сок & Апельсин
1 Сок & Апельсин & Яблоко
Задание 4: 2134
2 волейбол | баскетбол | подача | блок
1 волейбол | баскетбол | подача
3 волейбол | баскетбол
4 волейбол & баскетбол & подача
Задание 5: 2341
2 алгоритм & сжатие & графика & архиватор
3 алгоритм & сжатие
4 алгоритм | (сжатие & графика)
1 сжатие | графика | алгоритм
Задание 6: 1423
1 (Автомобили – Ford) & новые
4 Автомобили – Ford
2 Автомобили
3 Автомобили | Ford
Задание 7: 3124
3 отдых & Сочи & Адлер
1 отдых & (Сочи | Адлер)
2 отдых & (море | Сочи | Адлер)
4 отдых | Сочи | Адлер
Задание 8: 4123
4 строительный & стоимость & купить & купить
1 строительный & стоимость & купить
2 строительный | материал | купить
3 строительный | материал | стоимость | купить
Задание 9: 5000
Новосибирск 3300
Красноярск 2200
Новосибирск & Красноярск 500
Новосибирск | Красноярск 5000
Задание 10:
Атос & Портос 335
Атос & Арамис 225
Атос & Портос & Арамис 120
Атос & (Портос | Арамис) 440
Графические подтверждения:
1:
var N,k,s:integer;
BEGIN
s:=0;
readln(N,k);
N:=abs(N);
while N>0 do begin
if (N mod 10=k) then
s:=s+1;
N:=N div 10;
end;
writeln(s);
end.
2:
var N:integer;
s:string;
BEGIN
readln(N);
s:=IntToStr(N);
if (s[1]=s[Length(s)]) then
writeln('ДА') else
writeln('НЕТ');
end.
3:
var N,p,s,k:integer;
BEGIN
readln(N);
p:=1;
s:=0;
k:=0;
while N>0 do begin
p:=p*(N mod 10);
s:=s+(N mod 10);
k:=k+1;
N:=N div 10;
end;
writeln('Количество цифр = ',k);
writeln('Сумма цифр = ',s);
writeln('Произведение цифр = ',p);
end.
