При a=1 значение переменной a равно , при a=11 значение переменной a равно

Знания

Информатика

1 ответ:

Татьяна Батаева3 года назад

0 0

Равно 1 и 11...
.....

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

Создайте приложение «5 лет назад», которое через области ввода запрашивает у пользователя имя и возраст. А при нажатии на кнопку

Элена-Василина [7]

Program past;
uses crt;
var name: string;
age: float;

begin
clrscr;
readln('Введите ваше имя'; name);
readln('Введите ваш возраст'; age);
writeln;
if age<5 then
writeln (name, ' 5 лет назад вы еще не родились');
else
writeln (name, ' 5 лет назад вам было ', age -5, ' лет');
endif;
readkey;
end.

0 0

4 года назад

Составить алгоритм, вычисляющий рост любого человека. Изначально рост известен в метрах

duplo [453]

Ответ:

Var

S:real;

Begin

Writeln('введите рост');

readln(S);

Writeln('Ваш рост=' , S);

end.

0 0

3 года назад

Упростите логическое выражение (Av не-A)&(B&1).очень срочно Заранее большое спасибо!

сергей271

(A v не A) & (B & 1) = (A + -A) × (B × 1) = 0 × (B × 1)

0 0

3 года назад

Составьте программу которая заполняет массив a [1..10] случайными целыми числами в диапозоне от 1 до 10, затем преобразовывает е

Aleks55

Program arr;
var
a: array[1..10] of integer;
i: integer;
begin
randomize;
for i := 1 to 10 do
    a[i] := Random(10);
for i := 1 to 10 step 2 do
    a[i] := a[i] * 3;
for i := 2 to 10 step 2 do
    a[i] := 0;
end.

0 0

1 год назад

Сделать в Паскале 15 вариант оба задания по информатике

slaves25

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var x:=ReadReal('x=');
var y:=Ln(5*x)+Sqrt(Cos(x)/x)+12*x+Sin(10*x);
Writeln('y=',y)
end.

Примеры
x= 1.424
y=20.3661207208549

x= 0
y=NaN - результат не является допустимым числом (логарифм 0)

0 0

4 года назад