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

3 года назад

Составьте в тетради программу на языке программирования Паскаль. В качестве ответа прикрепите фото программы в тетради!

Знания

Информатика

1 ответ:

Siona3 года назад

0 0

Var
x, y: real;

begin
write('x = ');
readln(x);
if (x <= 2) then
y := sqr(x) + 4 * x + 5
else
y := 1 / (sqr(x) + 4 * x + 5);
writeln('F(x) = ', y);
end.

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

Очень надо, помогите пожалуйста. Задача по информатике.Вычислить значение функции Y(x задается с клавиатуры)Y равен системе: x,

Octavian Racu [7]

Var
x,y:real;
Begin
writeln('Введи значение аргумента х: ');
readln(x);
if x<-5 then y:=x;
if x>-5 and x<5 then y:=abs(x+2);
if x>5 then y:=cos(x);
writeln('значение функции в точке равно ',y);
readln;
End.

0 0

4 года назад

Написать программу, выдающую результат - равна ли сумма цифр введенного положительного числа 10 с защитой от неверного ввода. (н

--Светлана--

function sum (n : integer) : integer;

0 0

4 года назад

Помогите переведите из 2ой системы счисления в 10ую 11100111 10101010 11011011

Korkinaulya [123]

11100111=231
10101010=170
11011011=219

0 0

4 года назад

Решить математическую задачу на языке c# помогите пожалуйста скажите кодВнизу 30+с

Вета Виолетта

Ответ:

using System;

namespace Easy

{

class Program

{

static void Main()

{

float c = -30;

while(c == -30) // по ОДЗ

{

Console.WriteLine("Введите число: ");

c = Convert.ToSingle(Console.ReadLine());

}

float x;

x = (300 * (30 + c) - 200) / (12 + 25);

Console.WriteLine("x = " + x);

}

0 0

4 года назад

Сформулируйте условие задачи, которую решает данная программа: var c,k:integer; begin k:=0; for c:=10 to 99 do if c mod 7 = 0 th

екатериназзз

В программе подсчитывается количество двухзначных чисел, которые делятся на 7 без остатка (14, 21, ... , 98)

0 0

4 года назад