Программа на 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.
<span>"Не ошибается тот, кто ничего не делает, хотя это и есть его основная ошибка. " - эта фраза содержит 76 символов (включая пробелы и знаки препинания). К</span>аждый символ кодируется одним байтом, значит <span>информационный объём этой фразы 76 байт.</span>
Uses
GraphABC;
begin
Window.Init(0, 0, 300, 300, clWhite);
window.CenterOnScreen();
Pen.Color := clSilver;
Pen.Width := 3;
Brush.Style := bsGradient;
Brush.Color := clBlack;
Brush.GradientSecondColor := clWhite;
Rectangle(50, 50, 250, 250);
end.
Материальные модели-это предметные,которые воспроизводят геометрические и физические свойства предметов(глобус,анатомический муляж,макеты зданий).Абстрактные-это образные,которые несут зрительную информацию(рисунки,фотографии) или информационные(плакаты учебные) или знаковые(компьютерные программы,формулы (по физике или другие)историчечкие или географическин атласы)