Var
i:integer;
begin
i:=100;
while (i+7<200) do begin
inc(i,7);
write(i,' ');
end;
end.
Ответ:
Procedure dec2oct(n: longint); { перевод натурального десятичного n в восьмеричную систему счисления и вывод результата } const alpha = '01234567'; var s: string; i: integer; begin s : = ''; while n > 0 do begin s : = alpha[(n mod 8) + 1] + s; n : = n div 8 end; for i: =length(s) to 9 do s: ='0'+s; write(s) end; { использование } var x: longint; begin write('введите десятичное число: '); read(x); write('в восьмеричной системе счисления: '); dec2oct(x); writeln end. тестовое решение: введите десятичное число: 1234567 в восьмеричной системе счисления: 0004553207
Объяснение:
Var
A,B:real;
Begin
Write('Первое число: ');
ReadLn(A);
Write('Второе число: ');
ReadLn(B);
A:=A*B;
Write('Третье число: ');
ReadLn(B);
A:=A*B;
WriteLn('Произведение данных чисел: ',A);
End.
Var
n:integer;
begin
writeln('Введите номер дня недели');
readln(n);
case n of
1: write('Понедельник');
2: write('Вторник');
3: write('Среда');
4: write('Четверг');
5: write('Пятница);
6: write('Суббота');
7: write('Воскресение');
else writ('Ошибка! В неделе 7 дней, а не больше!');
end;
end.
А) Программное обеспечение
б) О<span>перационная система
в) Приложения</span>