Войти Регистрация Спроси ai-bota

Впаскале! №1 с клавиатуры вводятся 10 натуральных двузначных чисел. определить сколько среди них чисел, кратных 4; №2 с клавиатуры вводятся 10 натуральных двузначных чисел. определить среднее арифметическое нечетных чисел; №3 с клавиатуры вводятся 10 натуральных двузначных чисел. определить верно ли, что среди введенных чисел есть число, в котором первая цифра в два раза больше последней.

Ответ:

dimakalabin

01.10.2020 13:41

Var N,I,k,j,b,l:integer; Begin For I:=1 to 10 do begin Read(n); If n mod 4=0 then l:=l+1; If n mod 2<>0 then begin k:=k+n; j:=j+1; end; If ((n div 10)/(n mod 10))=2 then b:=1; End; Writeln('1-',l); writeln('2-',k/j); if b=1 then writeln('3-да') else writeln('3-нет'); End.

0,0(0 оценок)

Популярные вопросы: Информатика

romanchuzhekov

03.11.2022 20:56

Перевести из двоичной системы в десятичную систему: 1) 1000111 = что бы получилось 71 2) 1101111 = что бы получилось 110...

nightmarelucy

03.11.2022 20:56

Два кладоискателя хотят разделит поровну клад,чтобы никто не мог сказать что его обманули при дележи.у них нет никаких средст для измерения клада или ее частей,кроме собственных...

прждлшеджж

03.11.2022 20:56

Написать аннотацию к объекты и системы. и конспект...

SuperNikc

03.11.2022 20:56

Решить вторую.. 1. даны три числа а, b, с. удвойте эти числа, если они являются по возрастанию. 2. проверьте, есть ли среди трех заданных чисел равные....

терминатор43

30.12.2021 22:11

Внести в программу изменения таким образом, чтобы программа выводила сумму отрицательных элементов массива. program massiv_1a; var a: array [1..20] of integer i,k: intege begin...

адина56

30.12.2021 22:11

Запустить программу на выполнение. найти и исправить синтаксические ошибки. введите элементы массива (-1, 5, 45, 0, 2). program massiv_1a; var a: array [1..20] of integer i,k:...

ksetitaafrgb

30.12.2021 22:11

Выберите верное утверждение: «в данной программе описан массив, состоящий из…» а) 20 целых чисел; б)10 вещественных чисел; в) 10 целых чисел; г) 20 вещественных чисел; программа...

Vanysik

30.12.2021 22:11

Перевести в 10-ную сс число е41а,12 в 16-ной сс...

кристина2162

12.10.2020 23:46

Написать программу, которая водит натуральные числа от до и выводит все простые числа в диапазоне от до . на python !...

liza04543

28.09.2020 06:14

Какое значение примет переменная с после выполнения данной программы? pascal 1 2 3 4 5 6 a : = 123; b : = 456; a : = b - b div 10; b : = a + b mod 100; if a b then c : = b + a...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку