<span><em>1. Информационным</em> называют <em>процесс</em>, связанный с определёнными операциями (действиями) над информацией, в ходе которых может измениться содержание информации или её форма. Это процессы сбора, обработки, хранения, накопления, передачи/получения информации.
<em>2. </em><em>Неинформационные процессы: а), г), е), к), л), н)
</em> <em>Получение информации: б), д)
</em> <em>Передача информации: з)
</em> <em>Хранение информации: м), и)
</em> <em>Обработка информации: </em><em>в), ж)</em>
</span>
Чтобы с помощью фотошопа, измерять нужные виртуальные размеры, а потом уже, воплатить в жизнь.
Словарь если не поняла
Виртуальные- не реальные
Фотошоп- программа
Воплатить- сделать, создать
Поблагодари пож на страничке))
Если длина ребра именно равна 2 (a=2), то решаем так:
begin
Writeln(2*2*2,' ', 2*2); //Первое число - объём куба, второе - площадь боковой поверхности
end.
А если нам следует ввести значение a, то решаем так:
var a:int64;
begin
read(a);
Writeln(a*a*a,' ', a*a); //Первое число - объём куба, второе - площадь боковой поверхности
end.
Ну вот в принципе можно такую схему
Ответ:
Объяснение:
После строки if k=3 then Writeln(f2,x);
нужно поставить k:=0;
Var f1,f2: text;
i, k, x: integer;
Begin
Assign(f1, 'file1.txt');
reset(f1);
Assign(f2, 'file2.txt');
Rewrite(f2);
k:=0;
While not eof(f1) do
Begin
Readln(f1,x);
writeln(x);
for i:=2 to x do
If (x mod i=0) and (i mod 2=0) then inc(k);
if k=3 then Writeln(f2,x);
k:=0;
End;
Close(f1);
Close(f2);
Writeln('Второй файл содержит числа:');
Reset(f2);
While not eof(f2) do
Begin
Readln(f2,x);
Writeln(x);
End;
readln;
Close(f2);