Var
eval: array[1..35] of byte;
i, good: integer;
sr: real;
begin
good := 0;sr := 0;
for i := 1 to 35 do
begin
write(i, '.) ');readln(eval[i]);
sr := sr + eval[i];
if eval[i] = 5 then inc(good);
end;
sr := sr / 35;
writeln('Всего пятерок: ', good);
writeln('Средний бал: ', sr:0:2);
end.
<span>ОЗП - так звана пам'ять з відкритим доступом (так звана "оперативка").
Вона використовується для збереження даних програм (машинного коду) під час роботи комп'ютера.</span>
Begin
var x,y:real;
read (x);
if (x>=0) and (x<=9) then
begin
while (y<>x) do
begin
read (y);
if (y<>x)then writeln ('Мимо') else writeln ('Попал');
end;
end else writeln ('Неверный ввод');
end.
<span>public static int a (int n) {
return n/100;
}
public static int b(int n) { return(n / 10) % 10; } public static int c(int n) { return n%10; <span>}
</span> public static void<span> main</span>(String[]<span> args</span>) <span>{
</span>int n = //ініціалізація
System.out.println(a(n) + " " + b(n) + " " + c(n));
}
</span>