1.Найти наименьшее из двух заданных чисел a и b. 2.Дано целое число х. вывести на экран модуль числа х. 3.Определить, является ли заданное число
10-11 класс
|
трёхзначным.
Паскаль
________________
1. задание.
uses crt;
var
a,b, c: real;
begin
readln (a, b);
if a< b then writeln ('min ', a);
if a>b then writeln ('min ', b);
if a=b then writeln ('vse ravni');
readkey;
end.
__________
2.задание.
uses crt;
var
a,i: real;
begin
readln (a);
i:= abs(a);
writeln (i);
readkey;
end.
____________
3 задание.
uses crt;
var
a,i: integer;
st: string;
begin
readln (a);
str (a, st);
if length (st)=3 then writeln ('chislo trehznachnoe') else writeln ('chislo ne trexznachnoe');
readkey;
end.
Другие вопросы из категории
программы ?
for n:=1 to 10 do
A[n]:=n-8;
for m:=1 to 10 do
B[m]:=A[m]+m;
Введите значения A[2] и B[9] через запятую и пробел. (Например: 2, 5)
Читайте также
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
числа n.
№3
Вычислить значение факториала n!
№4
В диапазоне от 1 до n вывести все четные числа на экран.
№5
Найти количество чисел, которые делятся на 3 и 5, из диапазона от 1 до n.
экран с 20 по 50 в строку через пробел
2.для первыз десяти элементов найти среднее арифмитическое
3.вывести на экран только четные элементы с 1 по 10 элементы массива
4.найти сумму нечетныз значений с 20 по 50 элемент
5.найти количество элементов кратныз заданному числу,введёного с клавиатуры среди всез элементок линейного массива