tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу для нахождения
Составьте программу для нахождения среднего арифметического двузначных чисел, кратных 3, с использованием параметрического цикла. ответ прикрепите в виде файла в среде pascalabc.
nikzyryanov02
3 02.06.2019 18:00
1
Ответы
Dobriyboy
03.07.2020 11:59
var i,k,c:integer;
begin
k:=0;
c:=0;
for i:=10 to 99 do
begin
if ((i mod 3)=0) then
begin
k:=k+i;
c:=c+1;
end;
end;
writeln (k/c);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
GiftOfDeath
18.06.2019 23:20
Люди ! у кого есть печатная рабочая тетрадь №2 по информатике 6 класс н.в. макарова мне нужно разгадать японский кроссворд на странице 17 №21...
Nawrik34digma
22.10.2021 01:48
Задание 1 Выберите верные обозначения истинности/ложности логических высказываний. Выберите несколько из 8 вариантов ответа: 1) True/False.5) Правильно/Неправильно. 2) T/F.6) Верно/Неверно....
superpuperkrosh
22.10.2021 01:49
Тима задумал число от 1 до 105. Нужно угадать это число за наиментшее количество попыток , задввая тиме вопросы на котоые он отвечал да или нет. За сколько вопросов вы беретесь...
lalala106
22.10.2021 02:07
Перегруз ненужной информации 1 доступность общение 2 доступность любой информации при автоматизации работы на...
karabanovaann
09.04.2021 16:41
Записати результат виконання алгоритму n:=0; for i:=1 to 2 do n:=n+i*i; *...
VIDAL17
09.04.2021 16:35
Моделирование случайных процессов ...
straer122122
24.06.2019 16:50
Просклонять местоимения : другой, всякий, каждый, иной. , ,...
erdgfgh
24.06.2019 16:50
Диалог на тему я пришёл на день рождение к другу и не кого кроме него не знаю...
наталия147
24.06.2019 16:50
Замінити речення з прямою мовою речення з непрямою мовою. дмитре,зайдеш до мене і забереш свою книжку , - скзав юрко....
lukingrishal
24.06.2019 16:50
справжній друг завжди в біді невелике оповідання...
Популярные вопросы
Ребят дам 50 быллов сорри надо...
2
Заполните таблицу по Крымской войне 1853-1856г....
3
Не себепті Еңлік пен Кебекті аяусыз жазалайды?...
2
ОЧЕНЬ НУЖНО, СО ВСЕМИ ФОРМУЛАМИ Рассчитайте цену единицы продукции ОАО «Молоко»,...
3
Письменно История любого праздника ...
2
Task 1. Read a blog post “Why I became a charity worker?” and answer the questions...
3
Составьте сравнительную характеристику...
3
В.1. 1)Как должен вести себя хозяин, чтобы гостям было в его доме хорошо? 2)Прежде...
2
(Заполнить таблицу для трех опытов видео, построить график зависимости силы упругости...
3
Определи, монограмма какого композитора представлена на картинке? (Фамилия, имя,...
2
begin
k:=0;
c:=0;
for i:=10 to 99 do
begin
if ((i mod 3)=0) then
begin
k:=k+i;
c:=c+1;
end;
end;
writeln (k/c);
end.