Предмет с запахом является источником информации для таких приёмников информации как

Знания

Информатика

1 ответ:

Phoenix11 [278]4 года назад

0 0

Для всех кто может почувствовать запах. Например, человек животное.

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

Паскаль абс можно попроще Нечётная прогрессия Известны количество и сумма нескольких подряд идущих нечётных чисел. Нужно найти э

kapel [57]

Var N,S,a0, i: integer;
begin;
N:=0;
S:=0;
read(N);
read(S);
a0:= S div N - N + 1;
write(a0);
for i:=1 to N-1 do
begin
write(' ', a0 + 2*i);
end;
end.

0 0

4 года назад

Ввести с клавиатуры строку содердащую буквы и цыфры.Программа должна выбрать из этой строки цифры и создать новую строку

VASILEIADOU EIRINI

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var t:= ReadlnString('Введите строку').Where(i -> (i >= '0')and(i <= '9')).JoinIntoString('');
Write('Строка чисел: ');
t.Println();
end.

0 0

4 года назад

В массиве подсчитать: количество положительных и количество чётных чисел вместе. (Элементов массива:24. Массив вводится случайны

Кристина1993 [14]

На обычном паскалеАБЦ
var a:array[1..24] of integer; k,i:integer;
begin
k:=0;
for i:=1 to 24 do read(a[i]);
for i:=1 to 24 do if (a[i]>0) and (a[i] mod 2=0) then k:=k+1;
write(k)
<span>end.</span>

0 0

4 года назад

Совокупность знаков с помощь которых записываються числа называются?

Борис Ткаченко

<span>совокупность знаков с помощь которых записываются числа называется алфавит системы счисления</span>

0 0

4 года назад

Найти периметр шестиугольника по длинам его шести сторон. Вводятся: шесть чисел – длины сторон Выводится: одно число – периметр

вова-

Написано на Pascal

var

a,b,i:integer;

begin

writeln('Введите длины сторон шестиугольника:');

for i:=1 to 6 do begin

write('Длина '+i+' стороны: ');

readln(a);

b:=b+a;

end;

writeln('Периметр равен: '+b);

end.

0 0

4 года назад