Program Mila37;
var b, m, s, f:integer;
begin
writeln('*******************************');
writeln('* ПРИЁМНАЯ КОМИССИЯ *');
writeln('*******************************');
writeln;
write('введите проходной балл');
readln(b);
write('введите оценку по математике ');
readln(m);
write('введите оценку за сочинение ');
readln(s);
write('введите оценку по физике ');
readln(f);
if m+s+f<b then
begin
writeln('К сожалению, Вы не поступили...');
writeln('Попробуйте снова через год.');
end
else
begin
writeln('Поздравляем!!! Вы поступили ');
writeln(' и зачаслены на I-й курс');
end;
end.
Шоколад - x;
зефир - y;
x+y=15000;
y=12000;
x=15000-12000=3000;
Ответ: 3000
Ответ:
вычисление A в степени n
Объяснение:
выполняется цикл n раз
в теле цикла число A умножается само на себя
<span>var m:array[1..100] of integer;
i,a,n:integer;
begin
write('Ââåäèòå Г°Г*çìåðГ*îñòü Г¬Г*Г±Г±ГЁГўГ*: ');readln(n);
write('Ââåäèòå ÷èñëî À: ');readln(a);
writeln('Ââåäèòå Г¬Г*Г±Г±ГЁГў: ');
for i:=1 to N do
readln(m[i]);
writeln('ГЊГ*Г±Г±ГЁГў: ');
for i:=1 to N do
M[i]:=m[i]-a;
for i:=1 to N do
write(M[i],' ');
end<span>.</span></span>
Основатель науки кибернетики. Изучает системы управления, обратные связи (датчик получил информацию => определенное действие)
