Какая информация , полученная с помощью органов обоняния

Знания

Информатика

1 ответ:

xxx4 года назад

0 0

Инофрмация полученная с помощью органов обоняния, это запахи.

Читайте также

Дано натуральное число.Определить, есть ли в нем цифра равная а (а вводится с клавиатуры)

Anastasia Stas [53]

var
z,a,i:integer;
begin
writeln('vvedite chislo');
readln(z);
writeln('vvedite zifru');
readln(a);
for i:=1 to length(IntToStr(z)) do begin
if z mod 10 = a then
writeln('est');
z:=z div 10;
end;
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Риэлтор работал с каталогом D:\Квартиры\Цены\Дорогие. Сначала он поднялся на один уровень вверх, затем спустил

Егориус [4]

Мой ответ отличается от твоих вариантов.
Начинаем в D:\Квартиры\Цены\Дорогие.
D:\Квартиры\Цены.
D:\Квартиры\Цены\Премиум.
D:\Квартиры\Цены\Премиум\Центральный
D:\Квартиры\Цены\Премиум.
Ответ: D:\Квартиры\Цены\Премиум.

0 0

2 года назад

Запросить с клавиатуры двузначное число и вывести количество его десятков и единиц! Срочно,зайки выручайте)))!

Анна-Х [1]

Var
a : integer;
Begin
Readln(a);
Writeln(a div 10, ' ', a mod 10);
end.

0 0

4 года назад

Напишите программу, которая составит все возможные комбинации из цифр 3.4.5.6. и проверит каждую из этих комбинаций, является ли

Ничегоподобного [14]

Ответ:

Объяснение:

var a,b,c,d:integer;

begin

for a:=3 to 6 do

for b:=3 to 6 do

for c:=3 to 6 do

for d:=3 to 6 do begin

if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) and (frac(sqrt(1000*a+100*b+10*c+d))=0) then

writeln(a,b,c,d);

end;

end.

0 0

4 года назад

Сколько основных типов систем, основанных на знаниях, существует в настоящее время? а) 5 б) 6 в) 7 г) 8

Евгения Нилова

А вроде,но я не уверена

0 0

4 года назад