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

Даны действительное число a, натуральное число n. вычислить: p=a(a-n)(a-2n)**(a-n^2). решить на языке turbo pascal.

👇
Ответ:
EcLIpsЕ
EcLIpsЕ
14.06.2020

Program P1;

 

Uses Crt; {можно и не использовать, без оной clrscr -  видаст ошибку, что нет такого}

 

Var a,p: Real;
    n,i: Integer;

 

Begin
    ClrScr; {просто чтобы очистить экран можно и не использовать}
    Write('Type a: '); Read(a);
    Write('Type n: '); Read(n);
    for i:=1 to n do
    begin
        p:=p+(a*(a-i*n)*(a-n*n));
        {не совсем понятны три точки в условии}
    end;
    Writeln('p=', p:3:3); {количество знаков после запятой и общее}
    Readkey; {или можно использовать Readln;}
End.

4,4(78 оценок)
Ответ:

var
  a, result:real;
  n, i:integer;
begin
  write('a = ');
  readln(a);
  write('n = ');
  readln(n);
  result := a;
 
  for i := 1 to n do
    result := result * (a - i * n);
  writeln('Result = ', result);
  readln;
end.

4,8(75 оценок)
Открыть все ответы
Ответ:
misik1
misik1
14.06.2020
//Pascal ABC.NET 3.1 сборка 1256

Var
 s,s1:string;
begin
readln(s);
if (s[1]='в') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='на'+s;
 end;
if (s[1]='В') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='На'+s;
 end;
while pos(' в ',s)<>0 do
 begin
  if (s[1]='в') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='на'+s;
 end;if (s[1]='В') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='На'+s;
 end;
  s1:=s1+copy(s,1,pos(' в ',s)-1)+' на ';
  delete(s,1,pos(' в ',s)+2);
 end;
  if (s[1]='в') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='на'+s;
 end;
if (s[1]='В') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='На'+s;
 end;
s:=s1+s;
writeln(s);
end.

Пример ввода 1:
запасти в зиму, приехать в год, приготовить в день, выпить лекарство в ночь
Пример вывода 1:
запасти на зиму, приехать на год, приготовить на день, выпить лекарство на ночь

Пример ввода 2(глубокие песни современной отечественной эстрады):
В в в в в в в в в в в в в в в в в в н.
Пример вывода 2:
На на на на на на на на на на на на на на на на на на н.
4,8(94 оценок)
Ответ:
Zipchik
Zipchik
14.06.2020
1)
площадь изображения 35.56×35.56 = 1264.51 квадратных дюймов.
количество точек в квадратном дюйме 1200×1200 = 1 440 000 точек
количество точек во всем изображении
1 440 000 * 1264.51 = 182 089 440 000
глубина цвета 16 бит. 3 цвета RGB * 16 = 48бит на точку
Итого 182089440000 * 48 = 8740293120000 бит
8740293120000 / 8 бит в байте / 1024 байт в КБ /1024 кб в мб / 1024 мб в гб = 865,39 Гигабайт

2)
для палитры в 4 цвета небоходимо 2^n=4, n=2бита
55*55 = 3025 пикселя * 2 бита на пиксель = 6050бит

3)
изображение 12,7×12,7 см.
Разрешающая сканера — 600×1200 dpi,
глубина цвета — 32 бита.
в 1дюйме 2,54 см,  12,7см/2,54 см = 5 дюйм
Изображение 5 * 5 = 25 квадратных дюймов
600*1200 = 720 000 точек на квадратный дюйм
720 000 * 25 = 18 000 000 точек на изображение

глубина цвета 32 бит. 3 цвета RGB * 32 = 96 бит на точку
Итого 18 000 000 * 96 = 1 728 000 000 бит / 8 бит в байте =
216 000 000 байт
4,6(68 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ