Предмет: Информатика,
автор: burhontj
Дано трехзначное число. Определить, какая из его цифр
больше:
а) первая или последняя;
б) первая или вторая;
в) вторая или последняя.
РЕШИТЬ на Visual Studio
Ответы
Автор ответа:
0
Program Digit;
Var a, a1, a2, a3: Integer;
Label Start;
Begin
Start:
WriteLn('Введите трехзначное число');
ReadLn(a);
If (a < 100) Or (a > 999) Then
Begin
WriteLn('Вы ввели не трехзначное число');
Goto Start;
End;
a1 := a div 100;
a2 := (a - a1 * 100) div 10;
a3 := a - a1 * 100 - a2 * 10;
If a1 > a3 ThenWriteLn('Первая цифра больше последней')
Else
Writeln('Последняя цифра больше первой');
If a1 > a2 Then
WriteLn('Первая цифра больше второй')
Else
Writeln('Вторая цифра больше первой');
If a2 > a3 Then
WriteLn('Вторая цифра больше последней')
Else
Writeln('Последняя цифра больше второй');
ReadLn;
End.
Var a, a1, a2, a3: Integer;
Label Start;
Begin
Start:
WriteLn('Введите трехзначное число');
ReadLn(a);
If (a < 100) Or (a > 999) Then
Begin
WriteLn('Вы ввели не трехзначное число');
Goto Start;
End;
a1 := a div 100;
a2 := (a - a1 * 100) div 10;
a3 := a - a1 * 100 - a2 * 10;
If a1 > a3 ThenWriteLn('Первая цифра больше последней')
Else
Writeln('Последняя цифра больше первой');
If a1 > a2 Then
WriteLn('Первая цифра больше второй')
Else
Writeln('Вторая цифра больше первой');
If a2 > a3 Then
WriteLn('Вторая цифра больше последней')
Else
Writeln('Последняя цифра больше второй');
ReadLn;
End.
Автор ответа:
0
В смысле не подойдет? я просто никогда не видел VB даже на глаза :D. Но могу попробовать перевести :)
Автор ответа:
0
a1 = а поделить на 100 и отбросить остаток. Таким способом получаем первую цифру трехзначного числа.
Похожие вопросы
Предмет: Русский язык,
автор: marijo010218
Предмет: Литература,
автор: perizatorazbek02
Предмет: Математика,
автор: zxzloha
Предмет: Химия,
автор: Licht777
Предмет: Алгебра,
автор: Ololoshkaaaaaaaaaa