var
r, L, S, V: Real;
begin
Write ('Введите радиус: ');
ReadLn (r);
L := 2 * Pi * r;
S := Pi * r * r;
V := 4 / 3 * Pi * Power (r, 3);
Writeln ('Длина окружности = ', L);
Writeln ('Площадь круга = ', S);
Writeln ('Объем шара = ', V);
end;
Не совсем вехал в вопрос но попробую ответить
1. визуальный способ (наблюдение за обьектом, его внешнии характеристики... )
2. "контактный" потрогать пальцом (опять таки даст возможность понять из чего состоит твердый/мягкий, холодный/теплый поверхность шероховатая/гладкая и т. д. обьект)
3. понюхать (ну ты понял)
4. механические испытания ( ну допустим обьект железо проведя испытания расняжение, сжатие и т. д. можно узнать твердость сигма текучести т. д. )
5. химические анализ (с чем объект контактирует с какой средой и т. д. )
Цикл встречается в сказке Репка
Объем памяти = 768*512*16 бит = 768*512*16/8 байт = 768*512*2 байт =
768*512*2/1024 Кбайт = 768 Кбайт
Var
i, sum : integer;
begin
sum := 0;
for i := 1 to 100 do sum := sum + i;
writeln (sum);
end.