Ответ:
var a,b,c,d:integer;
begin
writeln('введите число'); //запрос числа
readln(a);
d:=a; //это для красоты
while (a<>0) do begin //пока мы не дойдём до последней цифры в числе делать следующее
b:=a mod 10; //берём последнюю цифру числа
c:=c+b; //находим сумму цифр
a:=a div 10; //убираем из данного числа последнюю цифру
end;
writeln('сумма цифр числа ',d,' = ',c); // вывод результата
end.
Вроде вот)
№1
var a, b, c, i:integer;
y, x :real;
begin
x:=-2;
while x<>2 do
begin
writeln (x, ' ', (exp(x) + exp(-x))/2-x*x*x*x);
x:=x+0.25;
end;
<span>end.
Первый номер, чтобы не было нарушения.
№2</span>
var a, b, c, i:integer;
y, x :real;
begin
x:=0;
while x<>4 do
begin
writeln (x, ' ', sqrt(x*x+5*x+3));
x:=x+0.25;
end;
end.
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;
a.Transform(t->t<0?t*20:t); a.Println
end.
<u>Пример</u>
n= 13
-82 6 99 -23 71 -92 50 -70 -82 37 -10 -97 92
-1640 6 99 -460 71 -1840 50 -1400 -1640 37 -200 -1940 92
Значение информации для человека.
Определние "информация" для человека становится все шире и шире, с каждым днем все полезнее, и одновременно сложней в усвоении и образовании.
Информация в жизни человека играет важную роль в повседневной жизни, начиная с работы и быта, заканчивая интернет технологиями. Информация помогает человеку сохранить , создать и следовать истории. Благодаря инфоормации человечество имеет возможность передавать и получать знания в изначальной точности. Цифры, буквы, изображения , формулы и даже звуки , все это частицы нашей информации, которую получив, возможно обработать и модернизировать, так и получается, модернизировав информацию мы не стоим на месте, наука и технологии идут вперед.
Информация, помогает человеку изучить и применить свои знания, взяв к примеру одну ситуацию, один человек собирается написать письмо другому человеку, естественно в наше время проще написать и отправить письмо воспользовавшись электронными технологиями, сделать это намного проще и быстрее, пускай и не через компьютер, но через телефон становится все проще и проще. И поэтому для того чтобы попросить человека на расстоянии "купить на обратном пути хлеба" , достаточно всего лишь набрать нужную информацию в сообщении телефона и отправить ее человеку.
P.s.
Что то типа того, может примеры не особо понравятся, можешь отредактировать, вставить что то свое , или добавить.
