Сделать так чтобы программа выводила сообщение о том у кого больше денег и у кого меньше. Можно оформление)
5-9 класс
|
var a,b:integer;
begin
readln(a,b);
if (a>b) then writeln('У а больше денег чем у b')
else if (b>a) then writeln('У b больше денег чем у а')
else if(a=b) then writeln('Денег поровну');
readln;
end.
Другие вопросы из категории
Составить функцию нахождения объема цилиндра по его радиусу основания r и высоте.
С помощью данной функции вычислить объемы для N цилиндров.
Читайте также
program z;
var x,a,k:integer;
begin
x:=random(100)+1;
repeat
writeln('Введите число от 1 до 100');
readln(a);
k:=k+1;
if a>x then write ('>');
if a<x then write ('<');
until a=x;
writeln('Вы угадали с ' ,k, '-й попытки');
end.
координаты х и у и программа проверяет, подходит ли эта точка к графику или нет. Пример на 2 фото.
Очень нужно. 80 баллов
Вот код программы:
uses GraphABC, ABCObjects,ABCButtons;
begin
MaximizeWindow;
var btword := new ButtonABC(50,125,500,100,'Играть',clWhite);
var btword1 := new ButtonABC(50,325,500,100,'Настройки',clWhite);
var btword2 := new ButtonABC(50,525,500,100,'Правила',clWhite);
var btword3 := new ButtonABC(50,725,500,100,'Выход',clWhite);
end.
Есть программа, которая преобразует слово из трех букв в число в 32-ичной сс(русс. алф).
После этого, переводит число в 10-ую сс.
Максимум может получиться 6 цифр, минимум 3.
Мне
нужно как-то сделать так, чтобы если у меня три цифры, то добавлялось
спереди три нуля, четыре цифры-добавлялось два нуля, пять
цифр-добавлялся один ноль, шесть-не добавлялось ни одного нуля.
коробке лежат 64 цветных карандаша. Сообщение о том, что достали белый карандаш, несет 4 бита информации. Сколько белых карандашей было в корзине?
3) В ящике лежат перчатки(белые и черные). Среди них-две пары черных. Сообщение о том, что из ящика достали пару черных перчаток, несет 4 бита информации. Сколько всего пар перчаток в ящике?
ПОМОГИИИИТЕ