4 года назад

Дан массив из n элементов Определить сколько в нем двузначных элементов кратных 5.

Знания

Информатика

1 ответ:

Serj Marchenko [392]4 года назад

0 0

На Паскале:
k:=0;
for i:=1 to n do
if (array[i] < 100) and (array[i]>9) and (array[i] mod 5 = 0) then k:= k+1;

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

Ребус со словом калькулятор поже плиззз зарание спасибо поже

Миксс

1) бумага для копирования (калька) без последней буквы

2) дом пчёл (улей) без 2 последних букв

3) отрава по другому (яд) последняя буква с "д" на "т"

4) крик по другому (ор)

0 0

4 года назад

Переведите число 147 из десятичной системы счисления в двоичную систему счисления.Сколько нулей содержит полученное число? В отв

Михаил Савашинский

1001001. Вот так. 4 нуля содержит число.

0 0

4 года назад

Помогите, с дано и решением. Вычислить, сколько байт информации занимает на компакт-диске одна секунда стереозаписи (частота 440

gogoso

44032*16/8 = 88064 б на секунду = 86 Кб
88064*60 = 5283840 байт на минуту ≈ 5Мб
5283840*80 = 422707200 байт на минуту ≈ 403Мб

0 0

2 года назад

Петя очень любит математику и информатику, поэтому он решил начать готовиться к олимпиадам сразу по обоим предметам. Для этого о

Алексей005

Ответ:

Вот, вроде работает:

Объяснение:

a = int(input("Сколько дней заниматься математикой?"))

b = int(input("Сколько дней заниматься информатикой?"))

c = int(input("Сколько чашек чая выпивать, когда занимаешься математикой?"))

d = int(input("Сколько чашек чая выпивать, когда занимаешься информатикой?"))

n = int(input("Сколько недель будешь заниматься?"))

chashka = 0

n = n*7

while n > 0:

chashka = chashka + c * a

n = n - a

chashka = chashka + d * b

n = n - b

print(chashka, "чашек чая")

0 0

4 года назад

Заполнить два массива (из 10 элементов каждый) случайными числами. Сформировать третий массив, каждый элемент которого равен пол

Nik-15 [69]

Const
n=10;
var
i:integer;
a,b:array[1..n] of integer;
c:array[1..n] of real;
begin
Randomize;
for i:=1 to n do begin
    a[i]:=Random(20);
    Write(a[i]:5);
    b[i]:=Random(20);
    c[i]:=(a[i]+b[i])/2
    end;
Writeln;
for i:=1 to n do Write(b[i]:5);
Writeln;
for i:=1 to n do Write(c[i]:5:1);
Writeln
end.

Пример
   12   15    9   18   13   10    6   15    4   11
    3   16    3    0   17    0   19   12    0    5
7.5 15.5 6.0 9.0 15.0 5.0 12.5 13.5 2.0 8.0

0 0

4 года назад