Дано целое положительное четырехзначное число а.
5-9 класс
|
Найти минимальную цифру среди первых трех цифр числа, а также определить:первая или вторая цифра числа четная,или обе цифры четные,или обе цифры нечетные.Результаты вывесите на экран.
uses crt;
label goback;
var
a,b,c,d,e,f:integer;
begin
goback:
write('Введите число: ');read(a);
if (a<1000) or (a>9999) then
begin
writeln('Введите четырехзначное число.');
goto goback;
end;
b:=a div 1000;
c:=a div 100 mod 10;
d:=a div 10 mod 10;
if (b=c) and (c=d) then begin writeln('Первые 3 цифры равны.'); end;
if (b=c) and (c>d) then begin writeln(d,' - Наименьшая цифра из первых 3 цифр.');end;
if (d=b) and (b>c) then begin writeln(c,' - Наименьшая цифра из первых 3 цифр.');end;
if (c=d) and (d>b) then begin writeln(b,' - Наименьшая цифра из первых 3 цифр.');end;
if (b>c) and (c>d) and (b>d) then begin writeln(d,' - Наименьшая цифра из первых 3 цифр.');end;
if (c>d) and (d>b) and (c>b) then begin writeln(b,' - Наименьшая цифра из первых 3 цифр.');end;
if (b>d) and (d>c) and (b>c) then begin writeln(c,' - Наименьшая цифра из первых 3 цифр.');end;
if (b mod 2 = 0) then begin writeln('Первая цифра четная'); end;if (c mod 2 = 0) then begin writeln('Вторая цифра четная');end;
if (b mod 2 = 0) and (c mod 2 = 0) then begin writeln('И первая и вторая цифра четная'); end;
if (b mod 2 = 1) and (c mod 2 = 1) then begin writeln('И первая и вторая цифра не четная');end;
End.
Другие вопросы из категории
сообщения удалили текст объемом 24 кбит. определите объем получившегося сообщения в байтах
Читайте также
первой цифре заданного числа, а число единиц-последней. Например: 3234 => 34.
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
входной файл содержит целое четырехзначное число 1000≤
2.Дано целое число N.Написать программу ,заменяющую его нулём ,если больше или равно нулю,и увеличивающая его в 2 раза ,если число меньше нуля.
3 .Дано целые числа a и b .Написать программу , которая выводит сначала большее число ,затем меньшее.
4.Даны числа a,b,c.Написать программу ,выводящую их в возрастающем порядке.
ПЛИЗ ПОМОГИТЕ
еньшее десяти положительное число. Второй игрок прибавляет к названному числу свое целое положительное число, также не превышающее десяти, и называет сумму. К этой сумме первый прибавляет какое-либо положительное число, не превышающее десяти, и сообщает сумму. Выигрывает тот, кто первый достигнет ста.
Как добиться победы?