1. Информатика
  2. Дано трехзначное число. Определить

Дано трехзначное число. Определить какая из его цифр больше, первая или вторая С ПАСКАЛЕМ

uylia144348 uylia144348    1   25.05.2020 12:13    1

Ответы
кристина4тина кристина4тина  15.10.2020 08:08

Program Pr1;

uses crt;

var a,b,c:integer;

Begin

clrscr;

readln(a);

c:=a mod 10;

a:=a div 10;

b:=a mod 10;

a:=a div 10;

if a>b then writeln('Первая цифра >')

else writeln('Вторая цифра больше');

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Veroni4ka7090 Veroni4ka7090  08.09.2019 01:30
Напиши, о какой части компьютера идёт речь. мозг компьютера - всё, что ты делаешь на компьютере, ты можешь увидеть на -...
LILIAGNATIV LILIAGNATIV  08.09.2019 01:30
Для записи текста использовался 256-символьный алфавит. каждая страница содержит 42 строки по 70 символов в строке. какой объем информации содержат 90 страниц текста?...
snezhana9197 snezhana9197  08.09.2019 01:30
Сообщение, записанное буквами 64 символьного алфавита, содержит 110 символов. какой объём информации оно несет? 30 за ответ ток быстрей...
sashazhuravleva sashazhuravleva  08.09.2019 01:30
Можно ли записать на дискету 3,5 дюйма (1,44 мб) программу,которая занимает 1.000.000 кбайт?...
daniil12341234 daniil12341234  26.06.2019 06:20
Pascal abc. написать процедуру, которая выводит на экран первые 3 элемента из массива, которые не равны друг другу. или процедуру нахождения 3 максимальных элементов...
дрин2 дрин2  26.06.2019 06:20
Нужно , не могу ни чего придумать, нужно сдавать я ни как не получается, . необходимо сделать в паскале в последовательности чисел p1, вычислить сумму первых четырех...
ФлайберУмныйЧеловек ФлайберУмныйЧеловек  19.01.2021 11:57
ЭТО ОТВЕТЫ К ИНФОРМАТИКЕ ОНЛАЙН МЕКТЕП ТЕМА ИСТОРИЯ И ПЕРСПЕКТИВЫ РОБОТОТЕХНИКИ 1 Карел Чапек 2 Ориентация 3 робот хирург 4 нарищивание мышц у биороботов 5 перемещение-перемещение...
SKoteickaЗ SKoteickaЗ  19.01.2021 11:56
Үй тапсырмасы Төменде берілген тақырыптар бойынша зерттеу жобасын орында.ЗерттеутапсырмаларыЗерттеу сұрақтары мен бағыттарыоБүгінгінің әскерироботтарыАлғашқы әскери...
mulin2000462345 mulin2000462345  07.09.2020 00:44
знайдіть відомості та підготуйте повідомлееня про кодування: а)азбука морзе б)семафорну азбуку в) шрифт Брайля г) мови квітів селам...
angelinaignaty1 angelinaignaty1  07.09.2020 00:43
напишите реферат на тему:использование электронно-вычислительных машин на производстве хороший ,объёмный ,без лишних и замудрённых слов 10 класс...

Популярные вопросы