4 года назад

Ввести число. Если оно неотрицательно, вычесть из него 50, в противном случае прибавить к нему 100.

Знания

Информатика

1 ответ:

Александр-13134 года назад

0 0

Microsoft Visual Basic 2010(более ранние тоже прокатят)

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

Запишите на языке Паскаль программу решения задачи: Исходные данные(кол-во жильцов) представим с помощью линейной таблицы А,соде

VS101 [2.5K]

Program z1
const n=30;
var a: array [1..n] of integer;s, i: integer;
begin
randomize;
for i:=1 to n doa[i]:= random (151)+50;for i:= 1 to n dos:=s+a[i];
writeln ('количество=',s);
readln;
end.

0 0

4 года назад

В гости к Мартышке пришли Волк, Ягненок и Лиса. Мартышка приготовила для них подарки – очки с раз¬ноцветной оправой: синей, розо

papirosoff [7]

1) 3) 4)
Лиса любит розовые,но не любит зелёные=>она выберет розовые.
Волк любит синие,но не любит зелёные=>он выберет зелёные
Ягнёнок любит и синие и розовые,но т.к. розовые заняты=>он возьмёт синие

0 0

4 года назад

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

Помогите пожалуйста. Нужно ввести 2 числа, вычислить сумму чисел и их произведение.вывести на экран большее значение

Аида22

Var a, b, c, d:integer; begin Readln (a, b); C:=a+b; d:=a*b; writeln ('сложение ',с,'произведение',d); if c>b then writeln ('Большесумма') else ('больше произведение); End.

0 0

4 года назад

Хеей, ребят, помогите пожалуйста решить какое-нибудь из этих заданий! Буду очень благодарна.

Дмитрий Пакшонков

1)59

2)4

Especially for you...

0 0

4 года назад

СРОЧНО!!! Помогите пожалуйста, заранее спасибо))))))

Николь 36 [1]

Ответ:

1. Переведем все числа в десятичную систему счисления

10001001 2 = 137 10

214 8 = 140 10

D7 16= 215 10

1111000 2 = 120 10

Из всех чисел нам подходит D7 16, так как 145<х<469, х = 215

Ответ: 3

2. Сумма 29 и 209 равна 238

Переведем 238 10 в 16 систему счисления, 8 систему счисления и 2 систему счисления

238 10 = 356 8

238 10 = ЕЕ 16

238 10 = 11101110 2

Нам подходит ЕЕ 16

Ответ : 3

0 0

4 года назад