program z1;
var
s,w:integer;
begin
writeln('Введите число зубов Кузьки');
readln(s);
writeln('Введите число зубов бабы Дуси');
readln(w);
if s>w then writeln('У Кузьки зубов больше') else writeln('У бабы Дуси зубов больше')
end.
Подробнее - на Znanija.com - znanija.com/task/30754761#readmore
var
x, y, a, b, c: real;
t: integer;
begin
read(x);
t := Round(10 * x);
a := t div 100;
b := (t div 10) mod 10;
c := t mod 10;
y := c + b / 10 + a / 100;
Println(y);
end.
Или можно сократить число используемых переменных:
var
x: real;
t: integer;
begin
read(x);
t := Round(10 * x);
Println(t mod 10 + (t div 10 mod 10) / 10 + t div 100 / 100);
end.
42 символа включая пробелы и точку в конце умножить на 16 бит будет 672 бит, если разделить на 8 то будет 84 байт
121:2=60(1)
60:2=30(0)
30:2=15(0)
15:2=7(1)
7:2=3(1)
3:2=(1)(1)
число: 1111001
Ответ: 5 единиц
Программа на Pascal
---------------------------------
Program Test;
Var num, i: integer;
Begin
Write('Введите число: ');
Readln(num);
if (num > 0) then
begin
for i := 1 to 5 do
num := num + 2;
Writeln();
Writeln('Число после увеличения: ', num);
end
else
begin
Writeln();
Writeln('Число не положительно');
end;
End.