Сумма,произведение и по отдельности единицы, десятки и сотни
program A1;
Var a, d, b, c,r,t:Integer;
begin
Write(' введите трех значное число ' ) ;Read(a);
d:=a div 100;
c:=a mod 100;
c:=c div 10;
b:=a mod 100;
b:=b mod 10;
t:=d+c+b;
r:=d*c*b;
WriteLn(' число единиц = ', b);
WriteLn(' число десятков = ', c);
WriteLn(' число сотый = ', d);
WriteLn(' сумма его цифр = ', t);
WriteLn(' произведение его цифр = ', r);
end.
Площадь и периметр
program f33;
Var a, b, P, S:Real;
begin
Write('а = '); Read(a);
Write('b = ') ;Read(b);
S:=a*b;
P:=(a+b)*2;
WriteLn('S = ', S);
WriteLn('P = ', P);
end.
Решение в прикрепленном файле.
Ну по стандарту показать примеров 10 и решение столбиком...
преобразование (перевод) Из 16/10/8 систем - столбиком
,а обратно умножением со степенями, ну общем всё как по рецепту...
Правда ему ещё надо объяснить как решать столбиком, как делить\множить\складывать\вычитать и что такое степень...
Ну и общую теорию что такое системы и какие бывают...
Ответ:
<em>у</em><em>д</em><em>а</em><em>л</em><em>и</em><em>т</em><em>ь</em>
Объяснение:
<em>н</em><em>а</em><em>з</em><em>н</em><em>а</em><em>ч</em><em>е</em><em>н</em><em>и</em><em>е</em><em> </em><em>клавишы</em><em> </em><em>D</em><em>e</em><em>l</em><em>e</em><em>t</em><em>e</em><em>:</em><em> </em><em>э</em><em>т</em><em>о</em><em> </em><em>озн</em><em>а</em><em>чает</em><em> </em><em>у</em><em>д</em><em>а</em><em>л</em><em>и</em><em>т</em><em>ь</em><em> </em><em>с</em><em> </em><em>а</em><em>н</em><em>г</em><em>л</em><em>и</em><em>й</em><em>с</em><em>к</em><em>о</em><em>г</em><em>о</em><em> </em><em>п</em><em>е</em><em>р</em><em>е</em><em>в</em><em>о</em><em>д</em><em>а</em><em>.</em>