var
i, k: integer;
begin
i:= 100;
k:= 0;

while i < 1000 do
begin
if (i * 2 mod 10 = 8) and (i * 3 mod 10 = 4) then write(i, ' ')
else k:= k + 1;
i:= i + 1;
end;
if k = 900 then writeln('Таких чисел не существует!');end.

0 0

4 года назад

В массиве хранится информация о сопротивлении каждого 20 элементов электрической цени. Вес элементы соединены последовательно. О

5555bom

VAR
 i, sum: Integer;
 a: Array [1..20] of Integer;
BEGIN
 for i:= 1 to 20 do 
 Read(a[i]);
 
 sum := 0;
 for i := 1 to 20 do
 sum := sum + a[i];
 
 Write(sum);
END.

0 0

4 года назад

Укажите целое в слове окно

Zhvastik

Окно,ок, но не знаю, я ваш вопрос не очень хорошо поняла

0 0

3 года назад

Даны три числа в десятичной системе счисления А=23 В=19 С=26 переведите А В и С в двоичную систему счисления и выполните поразря

gransipoka [123]

18

О нет! Что-то пошло не так во время добавления ответа
Слишком коротко. Напишите минимум 20 символов, чтобы объяснить все.

0 0

4 года назад