Var a: array [1..100] of real;
n, i, kol: integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
kol := 0;
for i := 1 to n do begin
if (a[i] > 0)and(i mod 2 = 0)
then kol := kol + 1;
if a[i] < 0
then a[i] :=0;
end;
writeln(kol);
<span>end.</span>
Задание указано некоректно. Надеюсь, вы имели в виду, сколько раз в заданное число можно вместить 7,то есть, сколько целых раз можно поделить на 7.
Код:
program school7;
Var a:Integer;
begin
Write('Введите число>> ');
ReadLn(a);
Write('В число ', a, ' цифра 7 вмещается ', int(a/7), ' раз(а)');
end.
1)
<span>c = int(input('Це число просте?: '))
i = <span>2
</span>b = <span>False
</span>while i <c<span>:
</span>----i+=<span>1
</span></span>----<span>if c%2==0<span>:
</span></span>--------<span>b = <span>True
</span>if b==True<span>:
</span></span>----<span>print('Нет')
else<span>:
</span></span>----<span>print('Да')
2)
</span><span>c = int(input('Ведите сумму номеров прочитанных страниц: '))
suma = <span>0
</span>i = 0
while suma<c<span>:
</span>----i+=<span>1
</span></span>----<span>suma += i
if suma == c<span>:
</span></span>----<span>print('Номер последней прочитанной страницы - ',i)
elif suma > c<span>:
</span></span>----<span>print('Сумма номеров прочитанных страниц не существует')
</span>
Пример:
Ведите сумму номеров прочитанных страниц: 10Номер последней прочитанной страницы - 4Пример_1:
Ведите сумму номеров прочитанных страниц: 512Сумма номеров прочитанных страниц не существует
3)
<span>mas = []
while True<span>:
</span>----a = float(input(' a = '))
</span>----<span>if a == 0<span>:
</span></span>--------break----<span>mas.append(a)
print(mas)
print("Було введено ",len(mas),'чисел')
print("Минимальне число: ",min(mas))</span>
билет#5
у=2+3х+2у
у+2у+3х+2
3у+3х+2
Изучением информатики являеться компюторние технологии,обработка информации