1) С какой команды начинается написание программы на языке Turbo Pascal? 2) В результате вычисление получается целое число в районе 100000. Какой тип данных будете использовать для переменной?
3) Какую операцию будете использовать при целочисленном делении?
4) Запишите функцию для псевдослучайных чисел [0: Х]
5) Запишите выражение в виде логических функций и переменных. «Не А умножается на А И B».
6) Выберите операторы присваивания, которые на ваш взгляд записаны, верно.
а) x:= 4,3+b*123; b) x:=0; с) x:= true; d) x:=y- sin(P/4)+8.1;
7) Какой результат мы увидим на экране, при работе процедур: Write, Writeln, Read, Readln.
a) i:=5; Write (I,I,I);
b) program primer;
var a,b,c,sum:integer;
begin
a:=1; b:=2; c:=55;
Write(a:3); Write(b:3); Write(c:3); Writeln;
Sum:=a+b+c;
Writeln (‘A=’,a);
Writeln (‘B=’,b);
Writeln (‘C=’,c);
Writeln (‘Сумма A+B+C равна ’, sum);
end.
8) Исправьте ошибки: var x,y: real;
begin
x :=0;
y:=1/x;
end.
55
Объяснение:
Данный фрагмент кода предназначен для подсчета суммы чисел от 1 до 10. Цикл while в нем выполняет последовательность команд до тех пор, пока проверяемое условие истинно (i <= n).
Первая итерация:
sum = 0 + 1 = 1
i = 1 + 1 = 2
Вторая итерация:
sum = 1 + 2 = 3
i = 2 + 1 = 3
Третья итерация:
sum = 3 + 3 = 6
i = 3 + 1 = 4
И так далее. Всего итераций будет 10, так как при i > n цикл прекращает выполнение команд.
Таким образом, после 10 итераций переменная sum = 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 = 55
from math import ceil
a = input()
a = a.split(' ') # ['N'], ['K'], ['M'], ... , ['Z']
SK = (int(a[1])/100)*int(a[4])
SM = (int(a[2])/100)*int(a[5])
SPP = (int(a[3])/100)*int(a[6])
if SK >= SM and SK >= SPP:
K = int(a[1]) - SK
M = int(a[2])
P = int(a[3])
N = int(a[0]) - (K + M + P)
elif SM >= SPP:
K = int(a[1])
M = int(a[2]) - SM
P = int(a[3])
N = int(a[0]) - (K + M + P)
else:
K = int(a[1])
M = int(a[2])
P = int(a[3]) - SPP
N = int(a[0]) - (K + M + P)
if N < 0:
print(-1)
else:
print(ceil(N))
Объяснение:
Не полный ответ, но ра РЭ 20б. получишь