Предмет: Информатика, автор: artem18012001

На Pascal.
Задача по Информатике:
Дана последовательность из 16 чисел(числа вводятся с клавиатуры). Подсчитать количество чисел оканчивающихся на шесть.

Ответы

Автор ответа: Gration
0
var  n, i, count: integer;
begin 
 count := 0; 
for i := 1 to 16 do   begin   
read(n);   
if n mod 10 = 6 then count := count + 1; 
 end; 
writeln(count);
end.
Автор ответа: artem18012001
0
А что такое count?
Автор ответа: Gration
0
это переменная, ее можно заменить любым другим словом/буквой
Автор ответа: Gration
0
в данной программе она считает количество чисел, оканчивающихся на 6
Интересные вопросы
Предмет: Математика, автор: tasyanka
Камеры системы контроля средней скорости устанавливаются на дороге парами: каждая из двух камер отмечает время проезда автомобиля мимо нее. Часто камеры стоят в начале и в конце населенного пункта. Зная расстояние между камерами, система вычисляет среднюю скорость автомобиля на участке между камерами. Если средняя скорость превышает разрешенную скорость больше, чем на 20 км/ч, то автовладельцу выписывается штраф.

При въезде в посёлок Андрей Андреевич на своём автомобиле миновал первую камеру и на несколько секунд остановился, чтобы пропустить пешехода. Затем снова набрал скорость и проехал мимо второй камеры.

Средняя скорость автомобиля Андрея Андреевича на участке между камерами оказалась равна 73 км/ч. Выберите бесспорно верные утверждения:

А) Был момент, когда скорость автомобиля превышала 90 км/ч
Б) Автомобиль двигался всё время со скоростью 73 км/ч
В) Был момент когда скорость автомобиля была выше, чем 73 км/ч
Г) Был промежуток времени, когда автомобиль двигался медленнее 50 км/ч
Предмет: Русский язык, автор: ertajevazansaa06