tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Паскаль. с клавиатуры
Паскаль. с клавиатуры вводится 10 целых чисел. найти сумму тех из них, которые оканчивается на 3. !
maksderbenevMarc
3 26.08.2019 19:10
1
Ответы
anton306
05.10.2020 21:27
Program n1;
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a);
if a mod 10=3 then sum:=sum+a;
end;
write(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
maratsultanbekкатя
26.06.2019 22:10
Запишите на языке паскаль программу которая вычисляет сумму кодов букв в слове байт...
kost32rus
24.12.2020 10:08
Каждый сотрудник предприятия получает электронный пропуск, на котором записаны личный код, состоящий из двух частей. Первая часть кода содержит 7 символов, каждый...
ismailismailov11
24.12.2020 10:08
Y=(16x^2-25y) 5xy^3 программа для расчета стоимости...
troft
24.12.2020 10:07
1.Разрешение экрана монитора 3840×2400 означает, что изображение на его экране будет состоять из точек в каждой строке.2.Реши задачу.Черно-белое (без градаций...
Vilka2008
24.12.2020 10:07
Что относится к телам вращения?...
канна
19.06.2019 07:50
Как хранится информация в интернете...
duk73p07117
19.06.2019 07:50
Что такое растровая графика? выберите один ответ. 1), состоящее из отдельных объектов 2) изображение, состоящее из набора точек 3) изображение, содержащее большое...
weelrockster
29.06.2019 02:50
Найти ошибки в программе и запишите ее исправленный вариант: program контроль; uses crt; var x,y: integer; z: real; begin; x: =5 y: =7.5; z: =x+y; writeln( summa=...
angel0000l
20.05.2020 16:52
Как вы описали в алгоритм использования инструмента Следуй за мной...
helgagrantt
20.05.2020 16:52
1. Сколько бит необходимо для кодирования 64 цветов? 2. Каков размер (в Килобайтах) несжатого растрового изображения размером 64 х 512 пикселей при использовании...
Популярные вопросы
Чему равна энергия излучённого фотона, если атом перешёл из...
1
The pictures and completnplete the3** Look at the pictsentences...
3
Я ты23РАУИ ПАЩФУК УКГТПШЩОСЛЦЬ ХЭАщоспт иж вам...
1
У кур цвет перьев определяется неполным доминантным геном. Его...
1
Translate new words and match the words with the photos:exercising...
2
Используя матереал урока заполните пропуски словами письмина...
1
Образовать от прилагательных три кратких прилагательных мр и...
2
Напишите уравнение касательной к графику функций f(x) = x^2...
1
Поставите слова в форму Р.п.мн.ч, а затем составить с данными...
1
День добрый составить краткую запись к задаче))голова уже не...
2
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a);
if a mod 10=3 then sum:=sum+a;
end;
write(sum);
end.