Var a,b,c:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
if (a=b)and(b=c)
then writeln(3)
else if (a=b)or(a=c)or(b=c) then writeln(2)
else writeln(0);
end.
Пример:
a, b, c:
1 2 1
2
Var
i,s:integer;
a:array [1..12] of integer;
begin
randomize;
s:=0;
for i:=1 to 12 do
begin
a[i]:=Random(35)+10;
writeln(a[i]);
if a[i] mod 3=0
then s:=s+a[i];
end;
writeln(s);
end.
Ответ:
Первое слово - монитор
Второе слово - логика
3-е слово - клавиатура
Число: 11
Объяснение:
1-е слово - есть только в 3 таблице, т.е монитор
2-е в 1 и 4, т. е логика, слово число отпадает так как есть еще и в 3 таблице.
3-е слово клавиатура, так как есть во 2 и 4 табл.
Число : мОнИтОр (3) + лОгИкА (3) + клАвИАтУрА (5) = 3+3+5 =11
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqGen(ReadInteger('n='),1,1,(x,y)->x+y).Println
end.
<u><em>Тестовое решение:</em></u>
n= 10
1 1 2 3 5 8 13 21 34 55