В старину на Руси широко применялась система счисления, отдаленно напоминавшая римскую. Для записи чисел употреблялись следующие знаки: звезда - 1000, круг-100, квадрат-10, X-1, десять палочек-1/10 или десять более мелких, чем в Х единицах, а также одна палочка -1/10, сто более мелких, чем в Х единицах или десять более мелких, чем в десяти палочках составляющих.
Запишите с этой системы счисления сумму: 3452рублей 43копеек.
В данном случае на выводе мы получим число 12.
Объяснение:
В начале мы записывает в переменные s и t такие значение как 11 и 12. То есть, s=11, t=12
У нас есть условие:
Если(if) значение переменной s (11) больше 10 а так же переменная t меньше или равно (это нам говорит оператор "not" , "not(t>10)" значит - что угодно кроме чисел больше 10) 10, тогда выполнить "writeln(s)" - тоесть вывести на экран число что записано в переменной s. В нашем случае t(12)>10 и оно не подходит под наше второе условие. В таком случае есть оператор "else" что обозначает "иначе" , тоесть если условие не выполняется то тогда срабатывает оператор else и срабатывает команда writeln(t) - что выводит на экран число что записано в переменной t .
Надеюсь я объяснил понятно, здесь все просто...
1.
program pifagor;
var
a,b:real;
begin
write('Введите катеты 》 ');
read(a,b);
write('Гипотенуза 》 ',sqrt(sqr(a)+sqr(b)));
end.
2.
program temp2;
var
a:integer;
begin
write('Введите число 》 ');
read(a);
write('Последняя цифра числа 》 ',a mod 10)
end.
3.
program pifagor;
var
a:integer;
begin
write('Введите трехзначное число 》 ');
read(a);
write('Сумма цифр числа = ',a div 100+a div 10 mod 10+a mod 10);
end.
4.
A=50
B=20
A=40-30=10
10<20
C=2×10=20
5.
program kratnost;
var
x:integer;
begin
write('Введите X 》 ');
read(x);
if(x mod 5=0)
then
write('X Делится на 5')
else
write('X Не делится на 5')
end.