var
x, count:integer;
begin
write('x = '); readln(x);
write('Количество троек в числе ', x, ' - ');
while x > 0 do
begin
if x mod 10 = 3 then
count := count + 1;
x := x div 10;
end;
writeln(count);
end.
Я не знаю ответа,но мне всегда помогает прочитать параграф пару раз и понять,и сама делаю
Ответ:
Выполнение операций процессора измеряется в тактах.
Uses
Crt;
Var
a,b:integer;
Begin
Writeln('Введите ваш рост в сантиметрах, округлив до целого значения');
Readln(a);
b:=a-100;
Writeln('Для человека ростом ', a,' см идеальный вес ', b,' кг');
End.