tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу которая впоследовательности
Написать программу которая впоследовательности чисел(nэлементов) вычисляет количество чисел , окончивающих на 7.
kolyan47
1 21.09.2019 00:50
0
Ответы
ренатик9
08.10.2020 05:56
Работает и с числами, и со строками
Отмечаем как лучший ответ
const n = 10;
var temp: String;
var count: Integer;
begin
for var i:= 1 to n do
if ReadString().EndsWith('7') then
count+=1;
WriteLn(count);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
VitaVita2003
09.03.2021 20:01
Сканер имеет разрешение 256*256 dpi. Отсканированное изображение размером 15*25 см занимает 15 МБ памяти. Чему равна глубина цвета пикселя(в битах) Отсканированного...
gawrilinamaria
09.03.2021 20:01
1. сойлемди оз созинмен толыктырыныз...
DaveDead
09.03.2021 20:03
Вычислите значение следующего выражения: ~(b 1 & b 1) & ((a | b) 1 | (a & b) 1) для a = 240 и b = 15. ответ дайте в десятичной форме....
Алисмит
08.03.2021 00:02
сделать розу ветров, должно получиться вот так,...
gaifuling4owmrcy
07.03.2021 23:57
Tindercad Как сделать, чтоб лампочка горела после нажатия на кнопку, а не во время нажатия? https://ibb.co/cCtY8hm...
savkinaveronika
07.03.2021 23:17
Яке значення буде набувати змінна i після виконання програми? var i, n: integer;begin n := 50; i := 0; while n = 40 do begin i := i + 1; n := n + 60;end;...
DanilaButov
04.08.2019 03:30
Составить сказку с терминами: сеть, каналы связи, трафик, логический канал, протокол. заранее огромное : )...
МаТеМаТиК200411
19.06.2019 16:30
Заполнить массив из 10 элементов случайными числами в интервале [10, 200] и найти сумму элементов массива, у которых вторая с конца цифра-четная....
nastasyakiribe
19.06.2019 16:30
Даны два числа. вывести порядковый номер меньшего из них....
rostislavcapsu
04.09.2019 11:50
Работа в питоне даны катеты прямоугольного треугольника.найдите его периметр и площадь...
Популярные вопросы
Как называется собака женского рода...
1
Надо составить предложение по схеме (как [ ]...
2
№2. вероятность попадания стрелком в мишень при одном выстреле ровна...
1
Индийском океане 5 морей. а в тихом океане 9 морей. на сколько больше...
2
Укажи лишнюю пару слов 1) горы- гора 2)луга-луг 3)глаза -глаз 4)шкафы-...
3
Как вы считаете этот рассказ о феде рыбкене сатирический или юмористический...
3
Перевести 34.800 мм в метры и сантиметры....
3
Вчем принципиальное различие между земскими и церковно-приходскими...
1
С. надо. complete the sentences. use the prepositions from the box....
3
Укажи в предложениях формы глаголов.как зделать?...
3
Отмечаем как лучший ответ
const n = 10;
var temp: String;
var count: Integer;
begin
for var i:= 1 to n do
if ReadString().EndsWith('7') then
count+=1;
WriteLn(count);
end.