Напишите программу на языке Паскаль, для решения следующей задачи:
10-11 класс
|
Для любого четырехзначного вводимого числа найти сумму второй и предпоследней цифры).
(Подсказка. Используйте тип данных integer и операции div и mod)
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.
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.
Другие вопросы из категории
подрался с каждым из оставшихся. За победу присваивалось-7 очков,за ничью-5,за поражение-2.Написать программу, определяющую победителя.
2. Царевна Несмеяна каждому из претендентов на её руку и сердце задаёт М вопросов. За очень понравившийся ответ 2 балла, за не очень понравившийся - 4, за не очень не понравившийся - 6, за очень не понравившийся - 8. Написать программу, определяющую самого понравившегося (набравшего наим. количество баллов) претендента.
2)файл скачивался за 2 минуты 15 секунд при скорости передачи 16 килобит в секунду. найти время. РЕШИТЕ ПОЖАЛУЙСТА ПОДРОБНО
Не могу разобраться что требуется найти!
1. Вычислить с использованием функции наименьшие элементы в строке и сумму
номеров строк и столбцов, в которых они расположены, для матрицы A(10,15).
Результаты формировать в одномерных массивах M(10) и S(10).
Читайте также
Известна площадь квадрата. Найдите периметр и диагональ квадрата
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.