Самый простой метод: объявить число Pi как константу. Или можно сделать так:
#define _USE_MATH_DEFINES
#include <iostream>
#include <cmath>
#include <math.h>

0 0

3 года назад

Даны целые числа M и N. Если числа не равны, то заменить первое число нулем, а второе – единицей, а если равны, удвоить значение

кафыуавы

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
m,n:integer;
begin
Write('Введите М и N: '); Read(m,n);
if m<>n then begin m:=0; n:=1 end
else begin m:=2*m; n:=2*n end;
Writeln('m=',m,', n=',n)
end.

Тестовые решения:
Введите М и N: 5 7
m=0, n=1

Введите М и N: 4 4
m=8, n=8

0 0

4 года назад

Задание в Excel по информатике 10-11 класс. Помогите пожалуйста желательно поподробнее с разъяснениями. Буду очень благодарен.

Игорь Кармадонов [6]

Все формулы прописываем для товара А и далее растягиваем

Искомое значение - буква необходимого нам товара

Таблица - таблица, где прописаны товар и его цена/товар и его количество, выделяем без шапочки таблицы, не забывая поставить знак $, так как диапазон изменяться не будет

Номер столбца/номер строки - у нас второй столбец, вторая строчка, поэтому 2

Интервальный просмотр - Ложь, так как значения не отсортированы по возрастанию, нам нужно точное совпадение

Стоимость находим перемножая цену и количество

0 0

3 года назад

Вычислить(1+sin0.1)(1+sin0.2) ... (1+sin10) для Free Pascal. Помогите!!!!

timan70 [3.7K]

Var i,p:real;
begin
i:=0.1;
p:=1;
while (i<=10) do
begin
p:=p*(1+sin(pi*i/180));
i:=i+0.1;
end;
writeln ('Rezultat: ',p);
readln;
end.

0 0

4 года назад