tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вводится 7 чисел.посчитайте
Вводится 7 чисел.посчитайте количество чисел, которые заканчиваются на 5.паскаль
StalinReal
1 14.08.2019 14:20
0
Ответы
олололо12
04.10.2020 18:56
Var a,i,k:integer;
begin
k:=0;
for i:=1 to 7 do
begin
write(i,'-е число = ');
readln(a);
if a mod 10 = 5 then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
1-е число = 68
2-е число = 15
3-е число = 751
4-е число = 935
5-е число = 47
6-е число = 512
7-е число = 370
k = 2
ПОКАЗАТЬ ОТВЕТЫ
4747384673838
04.10.2020 18:56
Var a:array [1..7] of integer;i,n:integer;beginn:=0;For i:=1 to 7 dobeginread (a[i]);If (a[i] mod 10)=5 thenn:=n+1;end;writeln (n);end.
При условии, что числа - целые
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Котейко444
21.06.2019 20:10
Как называется алгоритм ,команды которого выполняются а естественном следовании друг за другом в заданном порядке?...
zulaykho001
25.02.2020 21:09
Сделайте надо я выложил фото сделайте...
lyuda00777
25.02.2020 21:06
Две стороны треугольника равны 8см и 6см.Высота,проведёная к первой стороне,равна 3см.Найдите высоту,проведёную ко второй стороне треугольника....
sogoyantigran
25.02.2020 21:04
РЕШИТЕ ЛЮБЫЕ ДВЕ ЗАДАЧИ ИЗ ПРЕДСТАВЛЕННЫХ Задача 6. В хирургическом отделении выполнялись аппендэктомии с использованием различной оперативной техники. При классическом...
doschanov
10.03.2022 20:23
Перед тобой таблица стоимости перевозок, которая устроена следующим образом: числа, стоящие на пересечениях строк и столбцов таблиц, означают стоимость проезда между соответствующими...
Макс777333
10.03.2022 20:39
перечислите различные проводные и беспроводные внешних устройств вывода информации К персональному компьютеру...
Samuel11
18.07.2019 00:00
Каково главное отличие процесса получения изображения на компьютере от создания его в ручную...
nikaa10
17.02.2021 14:26
25. Écrivez les lettres qui manquent: J ..bite la rue Arbat au c..tre de la v C est une rue a . Quelle c...lation! Des aut.. , des ca , des ..to- bus. Les v...ures font...
sadernik2
17.02.2021 14:26
Насколько были различны пути объединения Италии и Германии? Урок 2 Распредели исторические факты, относящиеся к политическим деятелям, изображенным на иллюстрацияхкороль...
hjhjhjhhhhhhh
17.02.2021 14:26
Какова массовая доля кислорода в воздухе...
Популярные вопросы
Яку потужність має лампочка, яка ввімкнена в коло з напругою 120 В і...
2
Обчисліть значення похідної функції у=√13-3х у точці х0=3...
1
Штрафортта қызмет еткен жалғыз қазақ қызы ! Мәтінді мұқият оқып, қазақтың...
1
Какова масса каждого из грузов ,если общая масса грузов равна 50 кг...
3
Выберите правильные утверждения: А) Царство – наиболее крупная систематическая...
2
III. Put the verbs in the correct tense. 1. I can (to read) maps easily....
3
Listening & Speaking 8 a) 8.2.2.1aListen to Petra talking about...
3
1 GRAMMAR Write the past of the verbs 1 The factory produces cars. 2...
2
Назови кампонент неизвестного числа 63:Х=9*7 пл 1)делитель2)частное3)делимое...
2
Рим когамындагы кулдыктын ерекшелитерин жаз...
2
begin
k:=0;
for i:=1 to 7 do
begin
write(i,'-е число = ');
readln(a);
if a mod 10 = 5 then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
1-е число = 68
2-е число = 15
3-е число = 751
4-е число = 935
5-е число = 47
6-е число = 512
7-е число = 370
k = 2
При условии, что числа - целые