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

Известно фио человека, например иванов сергей петрович, надо вывести сначала фамилию а потом инициалы(иванов с.п.) решите

👇
Ответ:
alina3013
alina3013
29.08.2021
Петрович.С.И незнаю так ли это но мне кажется вот так
4,5(61 оценок)
Открыть все ответы
Ответ:
KIRILLGAMER332
KIRILLGAMER332
29.08.2021
1. Числа образуют последовательность, для n-го члена которой верны следующие соотношения:
a_n=2\cdot a_{n-1}+1, \ n \in \mathbb R \\ a_n=2^n-1
Последняя формула позволит ответить на вопрос "Сколько дней понадобиться,чтобы лягушка съела больше 35 комаров за раз", для чего надо решить неравенство:
2^n-135; \ 2^n36 \to n=6 \quad (2^5=32, 2^6=64)
Т.е. это произойдет в шестой день. Хороший проверить работу программы.

var
  i,an,s,f:integer;
 
begin
  s:=0; an:=0; f:=0;
  for i:=1 to 10 do
  begin
    an:=2*an+1;
    if f=0 then
      if an>35 then
      begin
        Writeln('День ',i,', за раз съедено комаров- ',an);
        f:=1
      end;
    s:=s+an
  end;
  Writeln('За 10 дней съедено комаров: ',s)
end.

Результат выполнения программы:
День 6, за раз съедено комаров- 63
За 10 дней съедено комаров: 2036

2. Используем алгоритм Евклида.

var
  a, b: integer;
begin
  Write('Введите два натуральных числа: '); Readln(a,b);
  if a<>b then
    repeat
      if a > b then a := a - b
      else b := b - a
    until a=b;
  Writeln('НОД=',b)
end.

Тестовое решение:
Введите два натуральных числа: 264 5436
НОД=12
4,7(83 оценок)
Ответ:
tania130
tania130
29.08.2021
Program long;
 uses Crt;
 const n=5;
 type Vec=array [1..n] of integer;
 var A, B, C: Vec;
     i,j,k, Col: integer;
     Pro: longint;
     a1, a2: integer;
begin
 ClrScr;
 Randomize;
 Col:=1;  Pro:=1;
 WriteLn ('Massiv A:');
 for i:=1 to n do
   begin
     A[i]:=500+random(2000);
     Write(A[i]:6);
     if A[i] >1000 then
        begin
          B[Col]:=A[i]; Col:=Col+1;
        end;
   end;  WriteLn;
 Col:=Col-1;  WriteLn;
 WriteLn ('Massiv B:');
 for i:=1 to Col do
   WriteLn(B[i]);
 WriteLn;
 k:=1;
 for i:=1 to n do
   begin
       a2:=B[i] mod 10;
       a1:=B[i] div 1000;
       if sqr(a1)<sqr(a2) then
           begin
              C[k]:=B[i];
              k:=k+1;
           end;
   end;
 for i:=1 to k-1 do
     Pro:=Pro*C[i];
  WriteLn ('Pro=',Pro);
ReadLn;
end.
4,7(27 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ