MrMike1
27.08.2021 17:22

ИНФОРМАТИКА, 8 КЛАСС.

1. Дан условный оператор: if(a<12)theny:=aelsey:=a+7 .

Условием является

все ответы верные

y:=a+7

a<12

y:=a

2. Условный оператор: if(x>3)theny:=x+7elsey:=x−20 .

Выбери действие, которое будет выполняться в случае истинности условия:

y:=x−20

y:=x+7

x>3

3. Дано целое число. Если оно является положительным, то прибавить к нему 28; в противном случае не изменять его. Вывести полученное число.

1) program cislo;

var

a: integer;

begin

writeln('Введи число a');

readln(a);

if a > 0 then a:=a;

writeln(a);

end.

2) program cislo;

var

a: integer;

begin

writeln('Введи число a');

readln(a);

if a < 0 then a:=a+28;

writeln(a);

end.

3) program cislo;

var

a: integer;

begin

writeln('Введи число a');

readln(a);

if a > 0 then a:=a+28;

writeln(a);

end.

4. Дано целое число. Если оно является положительным, то прибавить к нему 1 ; если отрицательным, то вычесть из него 6; если нулевым, то заменить его на 13. Вывести полученное число.

1) program zadaca;

var

a: integer;

begin

writeln('Введи число a');

readln(a);

if a > =0 then

if a=0 then a:=13 else a:=a+1

else a:=a-6;

end.

2) program zadaca;

var

a: integer;

begin

writeln('Введи число a');

readln(a);

if a > =0 then

if a=0 then a:=13 else a:=a+1

else a:=a-6;

writeln(a);

readln;

end.

3) program zadaca;

var

begin

writeln('Введи число a');

readln(a);

if a > =0 then

if a=0 then a:=13 else a:=a+1

else a:=a-6;

writeln(a);

readln;

end.

5. Запиши программу на языке Паскаль для:

y=⎧⎩⎨⎪⎪0, еслиx≤0

x, если0 x2, если x>1.

Запусти программу и введи значение x=14.

Число выведенное на экран:

6. Дана программа на языке Паскаль.

Программа определения весовой категории в зависимости от веса спортсмена. Если вес спортсмена меньше 68, то «лёгкая категория» иначе «средняя категория». Заполните пустые окошки.

program ves;

const

A1='легкая категория';

A2='средняя категория';

var

b : integer;

begin

write('введите вес спортсмена

(?) = ');

readln(?)

);

if (?) < (?) then writeln(A1) else writeln(A2);

readln;

end.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
такко
13.07.2020 13:42
67= 1000011
95=10112
103=1213
246=366
421=1A5
305=131
525=1350
Правило:
Для того, чтобы перевести число из десятичной системы счисления, в любую другую, нужно выполнять целочисленное деление исходного числа на основание той системы счисления, в которую нужно перевести число. При этом важен остаток от деления и частное. Частное нужно делить на основание до тех пор, пока не останется 0. После этого все остатки нужно выписать в обратном порядке - это и будет число в новой системе счисления.

если Остаток больше десяти то есть система счисления в которую переводим к примеру 16 то остатку  10=А; 11=B; 12=C; 13=D; 14=E; 15=F;

Овеликие люди)! выполнить перевод чисел из десятичной системы счисления в другую: 67 в двоичную с/с
0,0(0 оценок)
Ответ:
hadmatter
11.12.2020 07:24
№1
DATA 11,12,14,9,7,6,11,-20,55,333,222,111,11,900,-100,23,16,17,30,21,22,24,55,4444,500
DIM A(25)
FOR I=1 TO 25
READ A(I)
PRINT A(I)
NEXT
FOR I=1 TO 25  
FOR J=1 TO 24
IF A(J)<A(J+1)
THEN SWAP A(J),A(J+1)
NEXT
NEXT
PRINT "SUMMA 4ETIREH NAIBOLSHIH=";A(1)+A(2)+A(3)+A(4)
PRINT "SUMMA 4ETIREH NAIMENSHIH=";A(25)+A(24)+A(23)+A(22)
№2
CLS
INPUT "n"; n
DIM a(1 TO n), B(1 TO n) FOR i = 1 TO n a(i) = INT(RND * 100) B(i) = INT(RND * 100) PRINT a(i), B(i) NEXT i imin = 0 min = B(1) FOR i = 1 TO n IF B(i) < min THEN imin = i IF i > imin THEN s = s + a(i): k = k + 1 NEXT i sr = s / k PRINT PRINT "imin"; imin PRINT "Sr"; sr
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота