М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Vladimirr1905
Vladimirr1905
08.08.2022 08:12 •  Информатика

Написать программу в паскале дано натуральное число n (n< 9999). а)сколько цифр в числе n? б)чему равна сумма его цифр? в)найти последнюю цифру числа. г)найти первую цифру числа. д ) найти предпоследнюю цифру числа ( в предположении , что n> 10). е)дано число m. найти сумму m- последних цифр числа n. ж)выяснить, входит ли цифра 3 в запись числа n. з)поменять порядок цифр числа n на обратный. и)переставить последнюю и первую цифры числа n.

👇
Ответ:
dashasuslova007
dashasuslova007
08.08.2022
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var s:=ReadInteger('n=').ToString.JoinIntoString('');
  Writeln('Цифр в числе- ',s.Length);
  Writeln('Сумма цифр- ',s.Select(d->Integer.Parse(d)).Sum);
  Writeln('Последняя цифра- ',s.Last);
  Writeln('Первая цифра- ',s.First);
  Writeln('Предпоследняя цифра- ',s[s.Length-1]);
  var m:=ReadInteger('m=');
  Write('Сумма ',m,' последних цифр числа- ');
  Writeln(s.Skip(s.Length-m).Select(d->Integer.Parse(d)).Sum);
  Write('Цифра 3 в запись числа ');
  if Pos('3',s)>0 then Writeln('входит')
  else Writeln('не входит');
  Writeln('Число в обратном порядке- ',s.Reverse.JoinIntoString(''));
  Writeln('Перестановка первой и последней цифр- ',
    s.Last+Copy(s,2,s.Length-2)+s.First);
end.

Тестовое решение:
n= 1063
Цифр в числе- 4
Сумма цифр- 10
Последняя цифра- 3
Первая цифра- 1
Предпоследняя цифра- 6
m= 2
Сумма 2 последних цифр числа- 9
Цифра 3 в запись числа входит
Число в обратном порядке- 3601
Перестановка первой и последней цифр- 3061
4,7(51 оценок)
Открыть все ответы
Ответ:
Линейный алгоритм
если в алгоритме присутствует условие,то это алгоритм называется разветвляющийся(ветвление), Разветвляющийся алгоритм — алгоритм, в котором в зависимости от условия выполняется либо одна, либо другая последовательность действий
алгоритм в котором действия повторяются многократно называется циклический
Циклический алгоритм — описание действий, которые должны по вторяться указанное число раз или пока не выполнено заданное условие. Перечень повторяющихся действий называется телом цикла.
4,8(77 оценок)
Ответ:
Angeliiiiina662727
Angeliiiiina662727
08.08.2022
//1
Var
 a,b,z:integer;
 function max(a,b:integer):integer;
 begin
  if a>b then max:=a else max:=b;
 end;

 begin
 read(a,b);
 z:=max(a,2*b)*max(2*a-b,b);
 writeln(z);
end.

//2(если имеются в виду чётные по индексу)
Const
 n=5;

Var
 ar:array[1..n] of integer;
 i,r:integer;
begin
 writeln('Array:');
 for i:=1 to n do
  begin
   readln(ar[i]);
   if not(odd(i)) then r:=r+ar[i];
  end;
 writeln(r);
end.

//2(если имеются в виду чётные по значению)
Const
 n=5;
Var
 ar:array[1..n] of integer;
 i,r:integer;
begin
 writeln('Array:');
 for i:=1 to n do
  begin
   readln(ar[i]);
   if not(odd(ar[i])) then r:=r+ar[i];
  end;
 writeln(r);
end.

//3
Const
 n=2;
 m=3;

Var
 ar:array[1..n,1..m] of integer;
 i,j:integer;
begin
 writeln('Matrix:');
 for i:=1 to n do
  for j:=1 to m do
   begin
    readln(ar[i,j]);
    if ar[i,j]<0 then ar[i,j]:=0;
   end;
 writeln('Final matrix:');
 for i:=1 to n do
 begin
  for j:=1 to m do
   write(ar[i,j]:4);
  writeln;
 end;
end.

//4(не знаю на сколько это похоже на паркет)
uses
 GraphABC;
 Const r=30;
 Var
 i,x,y:integer;
begin
 x:=300;
 y:=300;
 maximizewindow;
 circle(x,y+r,r);
 floodfill(x,y+r,clPurple);
 circle(x,y-r,r);
 floodfill(x,y-r,clPurple);
 circle(x+r,y+r,r);
 floodfill(x+r,y+r,clPurple);
 circle(x-r,y-r,r);
 floodfill(x-r,y-r,clPurple);
 circle(x-r,y+r,r);
 floodfill(x-r,y+r,clPurple);
 circle(x+r,y-r,r);
 floodfill(x+r,y-r,clPurple);
end.

//5
uses
 GraphABC;

Var
 i,x,y:integer;
begin
 maximizewindow;
 Setbrushstyle(bsClear);
 setpencolor(clBlue);
 circle(300,300,15);
 setpencolor(clyellow);
 circle(315,315,15);
 setpencolor(clBlack);
 circle(330,300,15);
 setpencolor(clGreen);
 circle(345,315,15);
 setpencolor(clRed);
 circle(360,300,15);
end.

//6
uses
 GraphABC;

 Var
 x,y,i:integer;
begin
 x:=0;
 y:=windowheight;
 window.Width:=windowheight;
 while x+10<windowwidth do
 begin
 line(x,y,x+5,y-5);
 line(x+5,y-5,x+10,y);
 line(x+10,y,x,y);
 sleep(10);
 clearwindow;
 inc(x);
 dec(y);
 end;
 line(x,y,x+5,y-5);
 line(x+5,y-5,x+10,y);
 line(x+10,y,x,y);
end.
4,5(60 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ