Написать программу которая выводит на экран максимальное из трех целых чисел.
10-11 класс
|
Program MAXIN;
var
A:integer;
max:integer;
i:integer;
begin
max:=0;
for i:=1 to 3 do begin
writeln('Введите ваше число');
readln(A);
If A>max then max:=A; end;
writeln('Максимальное число=', max:2);
End.
Другие вопросы из категории
Установите знаки сравнения ( <, > , = ):
1байт 32бита 4байта
1Мбайт 1024Кбайт
Что такое сжатие звуковой информации?
a) совокупность основных устройств компьютера;
b) система программирования на языке низкого уровня;
c) программная среда, определяющая интерфейс пользователя;
d) совокупность программ, используемых для операций с документами;
e) программ для уничтожения компьютерных вирусов
номера. Счастливым называют такое шестизначное число, в котором сумма его первых трех цифр равна сумме его последних трех цифр. (Определить функцию для расчета суммы цифр трехзначного числа.)
Читайте также
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
подсчитать количество отрицательных элементов
сумму положительных элементов
ВЫВОДИТ НА ЭКРАН НОМЕРА ВСЕХ ЭЛЕМЕНТОВ, ЗНАЧЕНИЯ КОТОРЫХ =0
половину массива и выводит новый массив на экран.
2. Дан код символа. Написать программу, выводящую сам символ.
3. Написать программу для вывода на экран всех маленьких латинских букв.