#include <iostream>int main(){ int n; std::cin>>n; int a; for (int i = 1; i<=n; i++) { std::cin>>a; if (a == 0) std::cout<<"\n¹ "<<i<<"\n"; } }
fakelel
14.07.2021
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
Nikolaevich-Svetlana388
14.07.2021
Var a: byte; b:integer; Begin writeln('Введите день месяца'); readln(b); writeln('Введите номер месяца'); Readln(a); Case a of 1: writeln(b,' янавря'); 2: writeln(b,' февраля'); 3: writeln(b,' марта '); 4: writeln(b,' апреля '); 5: writeln(b,' мая'); 6: writeln(b,' июня '); 7: writeln(b,' июля'); 8: writeln(b,' августа'); 9: writeln(b,' сентября'); 10: writeln(b,' октября'); 11: writeln(b,' ноября'); 12: writeln(b,' декабря'); else writeln('Месяца №', a,'нет'); end; end.