напишите программу на языке паскаль для следуюзей задачи: для любого четырехзначного числа найти сумму первой и предпоследней цифры. Используя тип
10-11 класс
|
данных integer, и операции div mod
var
A,S:integer;
begin
Write('Введите четырехзначное число:');
Readln(A);
S:=(A div 1000)+(A div 10) mod 10;
WriteLn(S);
Readln;
end.
Другие вопросы из категории
Читайте также
Для любого четырехзначного вводимого числа найти сумму второй и предпоследней цифры).
(Подсказка. Используйте тип данных integer и операции div и mod)
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
программу на языке Паскаль для следующих задач:
1. Найдите сумму всех чисел от
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.