Есть легенда, что когда-то, когда создавался APPLE, человек, который был организатором, поставил условие: <span>Я хочу, чобы до завтра вы придумали название для нашей компании, а иначе я назову её в честь своего любимого фрукта - яблока.
На следующий день, хорошего названия не последовало, вот так собственно и появилось название APPLE, а соответственно и эмблема.</span>
Компьютер, робот, телефон, ноутбук
Буквы: м, р, о, т, н, о
Устройство вывода информации: монитор
Пропущена буква И
Используем расширенное представление числа
Ответ: основание системы счисления равно 6.
var
m:array [1..10000] of integer;
a,n,i,j:integer;
begin
writeln('Введите n:');
readln(n);
j:=0;
writeln('Введите последовательность чисел:');
for i:=1 to n do
begin
readln(a);
if (a mod 2)<>0 then begin j:=j+1; m[j]:=a; end;
end;
if j=0 then writeln ('Нечетных чисел нет в данной последовательности.')
else
begin
writeln ('Нечетные числа в данной последовательности:');
for i:=1 to j do
write(m[i],' ');
writeln;
end;
end
Program p1;
uses crt;
var a,b,i:integer;
begin
for i:=15 to 25 do begin
a:=a+i*i;
b:=i*i;
writeln('Сумма:',a,'(квадрат числа :',i,'=',b,')');
end;
write(a);
end.