var
n, k, s, sa: integer;
begin
k := 0;
s := 0;
sa := 0;
writeln('Введите последовательность, окончание ввода - число 0');
repeat
read(n);
if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;
if (n <> 0) and (n < 100) then inc(k);
sa := sa + n
until n = 0;
readln;
writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);
writeln('Количество чисел, не больших 100, равно ', k);
writeln('Сумма последовательности равна ', sa);
readln
end.
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
2. Отделка- это… а) покрытие поверхности изделия чем- либо; б) завершающая операция при изготовлении изделия; в) устройство установок. г)клейка обоев 3.Технология как наука занимается выявлением… а) физических, биологических, химических закономерностей с определенной целью; б) сфера деятельности человека; в) нужной древесины и металла. г)выявление 4. Основные во экономики- это а) что производится, как производится, кем потребляется; б)что потребляется, как производится, кто производит; в)что производится, как потребляется, кто производит; г)что потребляется, как производится, кто потребляет. 5. Моделирование-это А) построение и изучение моделей реально существующих предметов... Б) исследование объектов познания на их моделях; В) исследование объектов познания на их моделях Г) изучение моделей 6. Выберите лишний файл а) .ppt; бtxt; в).ехе; г).хls 7.Выберите файл соответствующий 1.txt А)штриховой рисунок; Б) тоновой рисунок В) текст; Г)таблица. 8. Какое из приведенных ниже устройств имеет наибольшую скорость записи и считывания информации? А)жесткий диск (винчестер) Б)гибкий диск (флоппи-диск) В)флэш-карта Г)компакт-диск 9. Назовите устройства ввода информации в персональный компьютер. А)мышь Б)сканер В)принтер Г)монитор 10. Технический рисунок-это А) наглядное графическое изображение объекта, выполненное от руки в глазомерном масштабе... Б) выполненное от руки в глазомерном масштабе... В) эскиз Г) выполненное от руки в глазомерном масштабе...
program zz1;
var n,n1,n2,n3:integer; //задаем переменные
begin
write('введите заданное трехзначное число');
read(n); //вводим с клавиатуры заданное трехзначное число
n1:=n div 100; //находим первую цифру числа
n2:=(n mod 100) div 10; //находим вторую цифру числа
n3:=n mod 10; //находим третью цифру числа
if (n1 mod 2 = 0)and(n2 mod 2 = 0)and(n3 mod 2 = 0) //проверяем, если все цифры четные, то выводим один ответ, если нет, то другой
then write('все цифры числа четные ') else write('некоторые цифры числа не четные');
Объяснение: