Program zadanie;
Var a,b,c:real;
n:integer;
Begin
Writeln('Введите количество учеников');
Readln(n);
Writeln('Введите количество пятёрок в классе');
Readln(a);
a:=n/100*a;
Writeln('Введите количество четвёрок в классе');
Readln(b);
b:=n/100*b;
Writeln('Введите количество троек в классе');
Readln(c);
c:=n/100*c;
Writeln('Процент пятёрок в классе:',a);
Writeln('Процент четвёрок в классе:',b);
Writeln('Процент троек в классе:',c);
End.
1-Backspase и Delete похожи тем, что обе выполняют функцию удаления символа, однако клавиша bAckspase стирает влево, а клавиша Delete - вправо.
Div берет целую часть от деления
15/4 = <span>3.75
Целая часть числа 3.75 = 3
</span>X = 3
begin
writeln(15 div 4);
end.
Program p1;
Var a: integer;
Begin
a:=5+5*5;
Writeln('Ответ: ', a);
End.
Var
a: array [1..4] of integer;
i, sf, ss : integer;
begin
for i:=1 to 4 do
begin
a[i]:= random(50)+1;
writeln(a[i]);
if a[i] mod 2 = 0 then sf:=sf+a[i] else
ss:= ss+a[i];
end;
writeln('Сумма четных: ', sf, ' ; сумма нечетных: ', ss);
<span>end.</span>