<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (b, c) := ReadReal2;
if c <> 0 then Write('a=', b / c)
else Print('с=0')
end.
#include <iostream>
int main()
{
int n;
std::cin>>n;
for(int i = 1; i<=30;i++)
{
if(i%n==0)
std::cout<<i<<"\n";
}
}
Самая минимальная единица измерения это бит.
1 байт=8 бит
Var a: array[1..5] of Integer;
rand,count,i: Integer;
begin
for i:=1 to 5 do
begin
a[i]:=Random(100);
writeln(a[i]);
if (a[i] mod 5=0) and (a[i] mod 10=0) then Inc(count);
end;
writeln('Кол-во: ',count);
end.
В) набор программ, используемых ну и т.д