Які предмети з повсякденного життя можна намалювати за допомогою інструментів дзеркального відображення по горизонталі

Знания

Информатика

1 ответ:

Бабка Ёжка [15.1K]4 года назад

0 0

Слава Украине!
Героям слава!

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

Дан массив из n элементов. Найти сумму отрицательных элементов с четными индексами. (Паскаль)

Интернет в дом

Var i, s: integer;
a: array[1..10] of integer;
begin
  for i := 1 to 10 do begin
  a[i] := random(10) - 5;
  if(a[i] < 0) and (i mod 2 = 0) then s := s + a[i];
  write(a[i]:3);
  end;
  writeln(#10, 'Сумма отрицательных элементов: ', s);
<span>end.</span>

0 0

3 года назад

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

Помогите пожалуйста!!!вначале вводится число n ,а потом еще n целых чисел. программа должна считать количество, чисел не кратных

Aloe19

Var
n: integer;

begin
Readln(n);
var a := ReadArrInteger(n);
writeln(a.Where(x -> (x mod 6 <> 0) and (x mod 10 <> 7)).Count)
end.

0 0

4 года назад

Вариант 2; Задания а,б,в

ankoles [38]

Прога А на ABCPaskal^
Progaram sdaef;
var S, i: real;
label cikl;
S:=0;
i:=10;
if i>5 then begin
cikl:
S:=S+i;
i:= i-1
If i> 5 then goto cikl;
else
writeln (S);
end;
end.

0 0

4 года назад

Знаешь ли ты, какие из этих величин больше 1 Мегабайта? 10000 Бит 1 Гигабайт 1500 Килобайт 1000 Килобайт

Azhevaika

1 мегабайт-1024 килобайтов, больше 1500килобайтов, 1гигабайт а 1000 килобайтов меньше и 10000битов:1024=9байтов так что они меньше

0 0

4 года назад

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

Помогите найти ошибку в программе пожалуйста. Прога должна при числах 900 , 450 выводить 900, а выводит 450. При 900, 450 работа

Пашукевич Алена А... [24]

Решение проблемы во вложении

0 0

4 года назад