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

Написать программу на языке с++ : в одной старинной мудрец предложил шаху в качестве награды за услугу выдать зерно. причем количество зерна оговорил так: на первую клетку шахматной доски положить 1 зерно, на 2-ую - 2, на 3-ю - 4, на 4-ую - 8 и т.д. составить программу, с которой можно вычислить, на какой клетке суммарное количество зерен превысит n штук.

👇
Ответ:
//
//   Разработал GonanSoft
//
int i; 
unsigned long long k=0; // сумма зёрен на i-ом шаге
unsigned long long s=1; // количество зерен в i-ой клетке 
unsigned long long n; // переменная признак окончания

cout << 'количество зерен '; 
cin>>n;
for (i = 1; i <= 64; i++) 
{
  k=k+s;
  if (n<k)
    break;
  s=s<<1; 
}

if (n<>18446744073709551615)  //это проверка на максимум зёрен
  cout << 'Номер клетки = ' << i << '\n';
else
  cout << 'Сумма зёрен не превысит 18446744073709551615  ' << i << '\n';
//
4,6(26 оценок)
Открыть все ответы
Ответ:
Kamilla1472
Kamilla1472
19.10.2020
Задача №1
 
var a,b,x,z,sra,srg:real; 
begin 
writeln('Введите 4 числа'); 
read(a,b,x,z); 
sra:=(a+b+x+z)/4; 
srg:=power(a*b*x*z, 1/4); 
writeln('Среднее арифметическое этих чисел =',sra); 
writeln('Среднее геометрическое этих числе =',srg); 
end. 

Задача №2

var a,b,sra,srg:real; 
begin 
writeln('Введите 2 числа'); 
read(a,b); 
sra:=(a+b)/2; 
srg:=power(a*b, 1/2); 
writeln('Среднее арифметическое этих чисел =',sra); 
writeln('Среднее геометрическое этих числе =',srg); 
writeln('Модули этих чисел a=',abs(a), ' b=',abs(b)) 
end.

Задача №3

var a,b,c:real; 
begin 
writeln('Введите длину катетов и гипотенузы соотвественно'); 
read(a,b,c); 
if a=0 then a:=sqrt(sqr(c)-sqr(b)); 
if b=0 then b:=sqrt(sqr(c)-sqr(a)); 
if c=0 then c:=sqrt(sqr(a)+sqr(b)); 
writeln('Площадь треугольника =',a*b*0.5); 
writeln('Периметр треугольника =',a+b+c); 
end.
4,7(71 оценок)
Ответ:
Дашунич
Дашунич
19.10.2020
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var a:array[1..2,1..6] of integer:=
    ((12,32,41,3,4,7),(9,19,23,24,27,39));
  Writeln(a);
  var b:=MatrixRandom(10,10,6,43);
  Writeln(b)
end.

Тестовое решение:
[[12,32,41,3,4,7],[9,19,23,24,27,39]]
[[29,39,20,21,36,34,10,25,32,40],[35,12,21,17,32,7,38,25,41,29],[6,33,17,19,30,25,34,37,21,23],[11,36,12,14,36,39,14,26,33,33],[17,34,39,30,14,34,29,19,20,26],[31,11,23,43,14,39,28,6,34,17],[43,17,10,15,35,42,6,13,25,36],[37,18,35,13,18,15,38,31,11,40],[39,21,22,38,36,43,18,12,43,40],[17,13,35,22,34,43,30,29,38,15]]
4,5(48 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ