Ответ:
program CountNum;
uses
SysUtils;
var
n, i, c: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (n);
s := IntToStr (n);
c := 0;
for i := 1 to Length (s) do begin
if StrToInt (s [i]) mod 2 = 0 then
Inc (c);
end;
WriteLn ('Количество четных цифр = ', c);
ReadLn;
end.
Var
ves,rost,ogk:real;
begin
Write('Введите рост и длину окружности грудной клетки в см: ');
Readln(rost,ogk);
ves:=rost*ogk/240;
Writeln('Нормальный вес равен ',ves:5:1,' кг.')
end.
В смысле как работать?
Это специальная программа для программирования. Выполняет совершенно разные действия и задачи. Помогает справляться с простыми и не очень целями. Работает посредством ввода команд. То есть ты вводишь "шапку" программы, ее начиняешь, доводишь до приемлемого состояния и запускаешь в ожидании результата. Все команды надо вводить вручную с клавиатуры
Ну, например, школа - это система. Все ее объекты связаны отношениями и имеют общую цель.