РЕШИТЕ ПОЖАЛУЙСТА ТРИ ЗАДАЧИ 1)Вывести на экран число симметричное в веденному двухзначному число. 2)Вывести на экран
10-11 класс
|
результат сравнения двух чисел.
3)Вести линейный массив и вычислить сумму всех элементов этого массива.
1)uses crt;
var a,e,d:integer;
begin
readln(a);
e:=a mod 10;
d:=a div 10;
writeln(e,d);
end.
2)uses crt;
var a,b:integer;
begin
readln(a);
readln(b);
if a>b then writeln('первое число больше');
if a<b then writeln('второе число больше');
if a=b then writeln('они равны');
end.
3)uses crt;
const n=10;
var a:array[1..n] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
writeln(s);
end.
Другие вопросы из категории
Помогите написать программу и в ней разобраться)
Читайте также
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
2)вывести на экран числа от 2 до 9 с шагом 0,2
вывести полученную матрицу на экран.
числа n.
№3
Вычислить значение факториала n!
№4
В диапазоне от 1 до n вывести все четные числа на экран.
№5
Найти количество чисел, которые делятся на 3 и 5, из диапазона от 1 до n.