Информация (от <u />лат. informatio — «разъяснение, изложение, осведомлённость») — сведения о чём-либо, независимо от формы их представления.
Информатика (от <u />информация и <u />автоматика) — <u />наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации, обеспечивающих возможность её использования для принятия решений.
Компьютер (англ. computer, МФА: — «вычислитель») — устройство или система, способное выполнять заданную, чётко определённую последовательность операций.
Текстовый редактор — самостоятельная <u />компьютерная программа или компонент программного комплекса (например, <u />редактор исходного код<u />а интергрированной среды разработки или окно ввода в браузере), предназначенная для создания и изменения <u />текстовых данных вообще и <u />текстовых файлов в частности.
Графический редактор<span> — <u />программа</span><span> (или пакет программ), позволяющая создавать и редактировать двумерные изображения с помощью <u />компьютера.</span>
Голубая. Потому что тот ничего не исполняет. Машина (забыла как называется) исполняет перевозку. Шкаф исполняет "хранение".
Пожарный или кто там... Исполняет (если пожарник), то исполняет роль "человека"
Program Prices;
const max : integer = 10;
var
price : real;
i : integer;
begin
{ С использованием цикла FOR }
writeln('Используем цикл FOR');
write('Введите стоимость 1-го кг конфет: ');
readln(price);
for i:=1 to max do
begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
end;
{ С использованием цикла REPEAT }
i:=1;
writeln;
writeln('Используем цикл REPEAT');
repeat
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
until(i>max);
{ С использованием цикла WHILE }
i:=1;
writeln;
writeln('Используем цикл WHILE');
while(i<=max) do begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
end;
end;
1.Начало
2.Возьму телеграммы.
3.Проверь, есть ли на них марки. Если нет, то:
Посчитай нужное количество марок.
Наклей марки.
4.Посмотри адрес.
5.Доберись до дома.
6.Постучи в дверь.
7.Отдай телеграмму.
(И несколько раз)
8.Конец.
Надеюсь помогла)))
Var s,a:integer;
i:byte;
begin
s:=0;
For i:=1 to 3 do
begin
readln (a); // цена тетради
s:=s+a; // прибавление к общей стоимости тетрадей
end;
writeln (s);
end.
смогли я Вам чем-нибудь помочь?