В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
temik261
temik261
22.02.2023 16:22 •  Информатика

else: print(" today is weekday') Задание No6 [5] Напишите код программы который запрашивает у пользователя двухзначное число, если число четное то программа находит сумму цифр этого числа и выводит сообщение «Число четное», иначе находит произведения цифр двухзначного числа и выводит сообщение «Число нечетное». Формула для нахождения суммы цифр двухзначного числа: Sum=n/10+n%10 or Sum=n//10 * n%10

Показать ответ
Ответ:
Алгебра111111111
Алгебра111111111
26.09.2021 20:47

Program Markovsp1;
uses crt;
const
  eps=0.001;
var
  t,s:real;
  i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Программа вычисляет частичную сумму ряда ');
  writeln('  S=1+1/(2^2)+1/(3^2)+1/(4^2)+... ');
  writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
используется цикл repeat');
  writeln();
  s:=0;
  i:=1;
  repeat
    t:=1/((i)*(i));
    s:=s+t;
    //writeln('i=',i,'  T=',t:0:6,'  S=',s:0:6);
    i:=i+1;
  until abs(t)<eps;
  writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6);
  writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6);
end.

Program Markovsp2;
uses crt;
const
  eps=0.001;
var
  t,s:real;
  i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Программа вычисляет частичную сумму ряда ');
  writeln('  S=1+1/(2^2)+1/(3^2)+1/(4^2)+... ');
  writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
используется цикл while');
  writeln();
  s:=0;
  i:=1;
  t:=1;
  while t>eps do
    begin
      t:=1/(i*i);
      s:=s+t;
      //writeln('i=',i,'  T=',t:0:6,'  S=',s:0:6);
      i:=i+1;
     end;
  writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6);
  writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6);
end.

0,0(0 оценок)
Ответ:
Mамикс
Mамикс
03.02.2021 13:59

Азбука Морзе

1) и .. н -. ф ..-. о --- р .-. м -- а .- т - и .. к -.- а .-

2) с ... к -.- о --- р .-. о --- к -.- а .- н -. и .. к -.- у ..- л .-.. ы -.--

3) с ... е . г --. о --- д -.. н -. я .-.- я .-.- с ... д -.. а .- ю .-- э ...---... к -.- з --.. а .- м -- е . н -.

Таблица двоичного кода

1) информатика 11001000 11101101 11110100 11101110 11110000 11101100 11100000 11110010 11001000 11101010 11100000

2) скоро каникулы 11110001 11101010 11101110 11110000 11101110 11101010 11100000 11101101 11001000 11101010 1111011 11101011 11111011

3) сегодня я сдаю экзамен 11110001 11100101 11100011 11101110 11100100 11101101 11111111 11111111 11110001 11100100 11100000 11111110 11111101 11101010 11100111 11100000 11101100 11100101 11101101

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота