Все категории

4 года назад

Компания,предоставляющая интернет-услуги компаниям и физическим лицам.

Знания

Информатика

1 ответ:

шон4 года назад

0 0

провайдер

или интернет-провайдер

Читайте также

Составьте программу возведения в квадрат И в куб ,, пожалуйста.

birain

PascalABC.NET 3.3, сборка 1547 от 07.10.2017
Внимание! Если программа не работает, обновите версию!

begin
var x:=ReadReal('Введите число:');
Writeln('Его квадрат ',x*x,', куб ',x*x*x)
end.

Пример
Введите число: -35.432
Его квадрат 1255.426624, куб -44482.276141568

0 0

4 года назад

Прочитать ещё 2 ответа

помогите выбрать правильный ответт!!Дано: x = 1F416 y = 7018. Какое из чисел Z, записанных в двоичной системе счисления, удовлет

натали29

x=11111010000010110

0 0

4 года назад

Задачи pascal.(34б) Если все элементы одномерного массива положительные то вывести сообщение "УСЛОВИЕ ВЫПОЛНЯЕТСЯ" иначе "УСЛОВИ

Гульмира Муратовна

Var k,a,b,c:integer;
begin
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
writeln('введите третье число');
readln(c);
writeln('введите число k');
readln(k);
if a mod k = 0 then
writeln('Первое число кратно k')
else
writeln('Первое число не кратно k');
if b mod k = 0 then
writeln('Второе число кратно k')
else
writeln('Второе число не кратно k');
if c mod k = 0 then
writeln('Третье число кратно K')
else
writeln('Третье число кратно k');
end.
Это первая задача!

0 0

4 года назад

Информатика паскаль хелп ми

Сергей Валентинович1

Ответ:

program HelloWorld;

var t, y, a, b: real;

begin

a := -0.5;

b := 1;

writeln('Input t');

read(t);

if (t >= 1) and (t <= 2) then

y := a * (t * t) * Ln(t) ;

if t < 1 then

y := 1;

if t > 2 then

y := Exp(a * t) * Cos(b * t);

writeln(y);

end.

Объяснение:

0 0

2 года назад

Отметь истинные высказывания буквой "И",ложные -буквой "Л"

Эльвина55

Где высказывания? Напиши их, как отвечать-то?

0 0

4 года назад