Program Egor_Sasha;var num_Eg, num_Sash,pri,pri1: real;var mes_Eg,mes_Sash: real;beginwriteln('Numer Egora');readln(num_Eg);writeln('Numer Sashi');readln(num_Sash);writeln('Mesto Egora (verkh=1,vniz=0)');readln(mes_Eg);writeln('Mesto Sashi (verkh=1,vniz=0)');readln(mes_Sash);pri:=num_Sash+1;pri1:=num_Eg+1;if num_Eg=pri then writeln('YES') else writeln('NO');if num_Sash=pri1 then writeln('YES') else writeln('NO');if mes_Eg=1 then writeln('Egor-HIGH')else writeln('Egor-LOW');if mes_Sash=1 then writeln('Sasha-HIGH')else writeln('Sasha-LOW');end.
Var
i,k,s:integer;
begin
k:=0; s:=0;
i:=7;
Writeln('Числа на интервале [7;100], кратные 7:');
while i<=100 do begin
Write(i,' ');
s:=s+i; Inc(k);
i:=i+7
end;
Writeln;
Writeln('Сумма этих чисел равна ',s,', количество равно ',k);
end.
Результат выполнения программы
Числа на интервале [7;100], кратные 7:
7 14 21 28 35 42 49 56 63 70 77 84 91 98
Сумма этих чисел равна 735, количество равно 14
Program n1;
<span>var x,y:real;
</span><span>begin
</span><span>readln(x);
</span><span>y:=round(x);
</span><span>if y=x then writeln('число не дробное')
</span><span>else writeln('число дробное');
</span><span>end.</span>
193.125 в 10=1x10²+9x10¹+3x10⁰+1x10⁻¹+2x10⁻²+5x10⁻³
193125 в 8=1x8⁵+9x8⁴+3x8³+1x8²+2x8¹+5x8⁰
193125 в 16=1x16⁵+9x16⁴+3x16³+1x16²+2x16¹+5x16⁰
1931.25 в 5=1x5³+9x5²+3x5¹+1x5⁰+2x5⁻¹+5x5⁻²
Чтобы перейти из десятичной системы счисления в восьмеричную, нужно выполнить деление столбиком на 8, а остатки, начиная с последнего, и будут являться ответом.
а) 51310 = 10018
513 | 1
64 | 0
8 | 0
1
б) 60010 = 11308
600 | 0
75 | 3
9 | 1
1
в) 201010 = 37328
2010 | 2
251 | 3
31 | 7
3