logo
Войти Регистрация Спроси ai-bota


keshatroy86e7
09.11.2020 12:39

Напишите программу на языке паскаль, для решения следующей : для любого четырехзначного вводимого числа найти сумму второй и предпоследней цифры). (подсказка. используйте тип данных integer и операции div и mod)

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
rassslabon
rassslabon
04.01.2022 05:35
1. в текстовом процессоре создайте новый документ. 2. наберите черновик документа (times new roman, 14 пунктов, выравнивание по левому краю) со следующим текстом:...
234432343342
234432343342
05.08.2020 21:39
Каким будет результат выполнения следующего кода: a=[10,12, Alex ,103, John ] print(a[3])...
диана2399
диана2399
14.08.2022 10:43
Сканируется цветное изображение размером 10 см х 10 см. Разрешающая сканера - 300х400 dpi, глубина цвета - 1 байт. Какой информационный объем будет иметь полученный...
Амишка51
Амишка51
30.07.2022 17:55
11. Что будет напечатано в результате выполнения следующей программы, если значение равно R = -16? Program n_1; var R,y: real; begin readln (R); if R 0 then y:=R*5+1;...
SANDCHESS
SANDCHESS
08.09.2020 19:28
Що виведе на екран така програма якщо ввести 2, а потім 3: first=int(input( Enter number )) second=int(input( Enter number )) sum=first+second print (first, + ,second,...
Valentinka14485
Valentinka14485
12.01.2022 02:25
Написать программу на языке pascal решения задачи н ами нахождение корня линейного уравнения ax+b=c, при вводимых с клавиатуры a, b, cхристом богом...
ValeriaIv
ValeriaIv
29.07.2020 18:57
Постройте таблицу истинности для одного из логических выражений:...
katemcgrat
katemcgrat
30.03.2023 05:48
составьте программу в паскале abs. найти произведение чисел от 1 до n. через цикл while и repeat​...
i01n
i01n
13.05.2022 03:17
Задача: написать программу, которая определяет максимальное из двух введенных чисел (опишите две переменные, целого типа; в теле программы используйте функцию, которая...
киска555555544
киска555555544
11.02.2022 22:15
Определи какую фразу будет искать поисковик, если за холодной воды . холодная вода в Байкале холод холодной воды холодная вода...
Ответ:
nik1ado21
24.06.2020 13:45
Var a,b,c,d:integer;
begin
readln(a);
b:=(a div 100)mod 10;
c:=(a mod 100)div 10;
d:=b+c;
writeln(d);
readln;
end.
0,0(0 оценок)
Ответ:
lyubasorokina1
24.06.2020 13:45
Var a,b,c:integer;
begin
read (c);
a:=c div 100;  a:=a mod 10;
b:=c div 10;  b:=b mod 100;
write(a+b);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота