1. Информатика
  2. 15 - 9 классы информатика

15 - 9 классы информатика 5 напишите программу, которая в последовательности натуральных чисел определяет количество чисел ,кратных 3 и оканчивающихся на 2.программа получает на вход натуральные числа, количество введенных чисел неизвестно последовательность чисел заканчивается числом 0.кол-во чисел не привыкает 100.введеные числа не привышают 300

мир276 мир276    3   26.08.2019 18:00    0

Ответы
SkokivaAlina SkokivaAlina  05.10.2020 21:21
Program n1;
var k,a: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if (a mod 10=2) and (a mod 3=0)
then k:=k+1;
readln(a);
end;
write(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
alisalis290 alisalis290  13.09.2019 23:00
Напишите программу (паскаль). подсчитать кол-во учеников, из 12 человек, кто за контрольную работу работу получил 5...
AlinaSh25 AlinaSh25  13.09.2019 23:10
Скорость передачи данных по некоторому каналу связи равна 512000 бит в секунду передача данных через это соединение заняла 16 секунд определите информационный объем переданных...
Gaxling Gaxling  13.09.2019 22:06
A: = (x[i] = 0) and a; b: = ( not(c) and (x[i] 0) ) or b; c: = ( not(b) and (x[i] 0) ) or c; поясните эти строки a,b,c: bolean pascal...
Дания29 Дания29  11.10.2020 00:44
Прочитай внимательно слова. Какие из них относятся к источнику к приёмнику информации? Сгруппируй их,Сохраняет, принимает, передает, обрабатывает, распространяет2. Назови предметы,...
morozhenka05 morozhenka05  10.10.2020 23:35
Запиши развёрнутую запись числа 0,934 для дробной части числа....
даночкаа88 даночкаа88  10.10.2020 23:35
Реализуй алгоритм возведения числа в степень в виде блок-схемы или на алгоритмическом языке. На вход программе подаются две переменные a и n, где a — целое число, а n — его...
Ираказефирка Ираказефирка  22.09.2019 14:50
30 дан рекурсивный алгоритм procedure f(n: integer); begin writeln(n); if n 10 then begin writeln(n); f(n*2); f(n*n) end end; найдите сумму чисел, которые будут выведены при...
instagramm1 instagramm1  22.09.2019 14:50
Вычислите произведение натуральных чисел от 1 до 8 var s, r, n: integer begin n: =8 p: =1...
mariya1810 mariya1810  29.09.2019 21:50
Человек читает объявление в газете односторонний или двухсторонний...
Лино444ка Лино444ка  05.08.2019 08:10
Составить сообщение по предмету обж , на тему: авария на хим.заводе.для 8 класса.заранее ....

Популярные вопросы