Начнем с плюсов. Бесспорным достоинством компьютера, как технического изобретения, является упрощение и усовершенствование работы во многих отраслях жизни. Главным образом – это рабочие процессы в науке, архитектуре, промышленности. Именно программы, разработанные с помощью компьютерных технологий, позволили сделать важные открытия в области медицины, химии, физики, создать чертежи и графические разработки промышленного оборудования, зданий и сооружений. Развитие нанотехнологий тесно связано с компьютерами. «Бумажная работа» многих специалистов различных сфер деятельности была упрощена за счет появления ПК. Теперь нет необходимости хранить информацию в бумажном виде, создавая склады архивов, ведь есть электронные носители информации, подключаемые к компьютеру.МИНУСЫ Проблемы со спинойДолгое сидение за компьютером происходит, обычно, в неправильной, неудобной позе. Даже если изначально вы держите осанку, то уже через час, а то и раньше, начинаете сутулиться, выдвигая шею вперед или закидывая голову на спинку стула. При этом происходит искривление позвонков и передавливание сосудов. От этого чувствуется слабость, головокружение и даже боли в спине.Влияние на зрениеНапряжение глаз, обращенных в экран монитора, дает о себе знать постепенным ухудшением зрения. Поэтому не ленитесь делать специальные упражнения для глаз, и не сидите за компьютером слишком долго.ИзлучениеХотя всё еще ходят споры о вреде излучения от компьютеров, влияние электромагнитных волн от работающей техники можно ощутить уже после нескольких часов беспрерывной работы - чувствуется общая слабость и нервное напряжение.<span>Потеря времени</span>
Var
a, b, c, sum: integer;
function min(x, y: integer): integer;
begin
if(x > y) then result := y
else result := x;
end;
begin
sum := 0;
read(a, b, c);
a := min(a, min(b, c));
while a > 0 do
begin
if(a mod 10 mod 2 <> 0) then sum := sum + a mod 10;
a := a div 10;
end;
write(sum);
end.
Var
s,ss:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=Length(s) downto 1 do
begin ss:=s[i]+s[i]; Insert(ss,s,i) end;
Writeln('Результат: ',s)
end.
Пример решения
Введите строку: Я умею писать программы!
Результат: ЯЯЯ ууумммеееююю пппииисссааатттььь пппрррооогггррраааммммммыыы!!!
var
s:string;
i:integer;
begin
Write('Введите слово: '); Readln(s);
for i:=Length(s) downto 1 do Insert(' ',s,i);
Writeln('Результат: ',s)
end.
Пример решения
Введите слово: Паскаль
Результат: П а с к а л ь
var
s1,s2,s3:string;
i:integer;
begin
Write('Введите первое слово: '); Readln(s1);
Write('Введите второе слово той же длины: '); Readln(s2);
s3:='';
for i:=1 to Length(s1) do s3:=s3+s1[i]+s2[i];
Writeln('Результат: ',s3)
end.
Пример решения
Введите первое слово: Корова
Введите второе слово той же длины: собака
Результат: Ксоорбоавкаа
<em>#include "stdafx.h"</em>
<em>#include <iostream></em>
<em>#include <fstream></em>
using namespace <em>std</em>;
int _tmain(int argc, _TCHAR* argv[])
{
<span> bool s = false;
</span><span> char fn[255];
cout << <em>"Filename: "</em> << endl;
</span><span> cin >> fn;
</span> ifstream fin(fn);
while(!fin.eof())
<span> if (fin.get() == 's')
</span><span> {</span><span>
s = true;</span><span> break;</span><span>
}
</span> fin.close();
<span> cout << <em>"There "</em> << (s ? <em>"is"</em> : <em>"isn't"</em>) << endl;
</span> system(<em>"pause"</em>);
return 0;
<span>}</span>
<em>Windows</em><span> 1251 вроде и будет</span>
