Даю 2 варианта:
1)
#include <iostream>#include <list>using namespace std;
int main() { int n, t; cin >> n; list<int> li; for (int i = 0; i < n; i++) { cin >> t; li.push_back(t); } li.sort(); li.unique(); cout << li.size() << endl; return 0;}
2)
#include <iostream>#include <set>using namespace std;
int main() { int n, t; cin >> n; set<int> se; for (int i = 0; i < n; i++) { cin >> t; se.insert(t); } cout << se.size() << endl; return 0;}
Uses Graphabc;
begin
SetWindowWidth(530);
SetWindowHeight(200);
SetPenWidth(5);
Rectangle(250, 10, 310, 70);
Rectangle(210, 70, 350, 130);
Rectangle(170, 130, 390, 190);
end.
(надеюсь поможет)
Запрос (query) – это средство выбора необходимой информации из базы данных. Вопрос, сформированный по отношению к базе данных, и есть запрос. Применяются два типа запросов: по образцу (QBE – Query by example) и структурированный язык запросов (SQL – Structured Query Language).
QBE - запрос по образцу – средство для отыскания необходимой информации в базе данных. Он формируется не на специальном языке, а путем заполнения бланка запроса в окне Конструктора запросов.
SQL – запросы – это запросы, которые составляются (программистами) из последовательности SQL – инструкций. Эти инструкции задают, что надо сделать с входным набором данных для генерации выходного набора. Все запросы Access строит на основе SQL – запросов, чтобы посмотреть их, необходимо в активном окне проектирования запроса выполнить команду Вид/SQL.
Существует несколько типов запросов: на выборку, на обновление, на добавление, на удаление, перекрестный запрос, создание таблиц. Наиболее распространенным является запрос на выборку. Запросы на выборку используются для отбора нужной пользователю информации, содержащейся в таблицах. Они создаются только для связанных таблиц.
Var
x,x1,x2,s: integer;
begin
write('Введите x1:');readln(x1);
write('Введите x2:');readln(x2);
//ищем сумму цифр этих чисел
x:=x1 div 100; s:=s+x;
x:=x2 div 100; s:=s+x;
x:=x1 div 10 mod 10; s:=s+x;
x:=x2 div 10 mod 10; s:=s+x;
x:=x1 mod 10; s:=s+x;
x:=x2 mod 10; s:=s+x;
s:=abs(s);
//Теперь в s сумма цифр введенных x1 и x2
writeln('Сумма цифр ',x1,' и ', x2,' = ',s);
if (s>9) and (s<100) then writeln('Произведение чисел =',x1*x2)
else writeln('Разность чисел = ',x1-x2);
end.
Тест №1
Введите x1:-999
Введите x2:-888
Сумма цифр -999 и -888 = 51
Произведение чисел =887112
Тест №2
Введите x1:111
Введите x2:222
Сумма цифр 111 и 222 = 9
Разность чисел = -111
Ну принцип какой... У тебя дан for от 1 до 9, т.е. 8 раз надо провести операцию s=s×x
1s=2, т.к. 2*1=2
2s=4
3s=8
4s=16
5s=32
6s=64
7s=128
8s=256
И ответом выйти должно 256