Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
gore489
03.09.2021 19:46 •
Информатика
Введите с клавиатуры 8 положительных целых чисел. определите, сумму двухзначных чисел. программа должна вывести одно число: сумму двузначных чисел. как решить в
Показать ответ
Ответ:
Млада000
05.10.2020 16:46
Var
A,i,S:integer;
Begin
S:=0;
For i:= 1 to 8 do
Begin
Read(A);
if (A>9)and(A<100) then S:=S+A;
End;
WriteLn('Сумма двузначных чисел равна: ',S);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
askarovaalisa
28.09.2020 11:41
В MS EXCEL Вычислить значение функции y=(x+2)3 -│x│ для всех x на интервале [-12 ; 12] с шагом 1. Построить график....
qazdhnvd
22.08.2020 12:13
Укажите наименьшее целое значение А, при котором выражение (y – 2x 15) ∨ (y 20) Решите подробно...
Аня34566
21.10.2021 15:29
Как решать с двумя функциями? var n, a, t:longint;function F(x: longint): longint; begin F:= 2*(x-7)*(x-7)+7*x+7; end;function G(x: longint): longint; begin G:= 3*x*x - 107;...
musinasim
07.03.2020 03:57
Создайте приложение, выводящее на экран 10 правильных четырёхугольников, расположенных один внутри другого...
ravil863
29.05.2021 06:34
Подскажите какое приложение можно скачать для того чтобы делать офигенный Аватарки для Ютуб или тик ток или ВКи чтоб не платить за каждый эффект...
Kazhyal
01.03.2023 20:51
ЖЕЛАТЕЛЬНО ВЫПОЛНИТЕ ЗАДАНИЕ...
veta991
20.07.2021 23:24
Архивтеру программаларын көрсет комектесндерщ...
klubnika1985
11.11.2022 16:57
Дан массив из 6 элементов целых чисел Ввод – датчик случайных чисел Вывод в одну строку Замените все четные элементы числом 5...
azamatarslanov0
19.02.2020 10:02
Что надо писать в выполнить чтобы посмотреть какие программы запускаются с компьютером(автозапуск)...
998l
19.02.2020 10:02
Те решить . к реке одновременно подошли три купца и три разбойника.всем необходимо было переправится на противоположный берег.у берега стояла лодка,которая могла вместить...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A,i,S:integer;
Begin
S:=0;
For i:= 1 to 8 do
Begin
Read(A);
if (A>9)and(A<100) then S:=S+A;
End;
WriteLn('Сумма двузначных чисел равна: ',S);
End.