Регистрация
bongtangirl
05.12.2020 08:21
Информатика
Есть ответ 👍

Написать программу лёгкую в поскаль со всеми значениями

214
238
Посмотреть ответы 2

Ответы на вопрос:

никита154856
никита154856
4,8(91 оценок)
Program cisla; uses crt; var m,n: longint; k: integer; begin; clrscr; writeln ('введите число='); readln (n); m: =n;   k: =0; while m< > 0 do begin  k: =k+1; m: =m div 10; end; writeln ('в числе =',k,' цифр'); repeat until keypressed; end.
РУСЛАН113228
РУСЛАН113228
4,8(89 оценок)
Program yolo; uses crt; const n=16; var mass: array [1..n] of integer;     back: integer;     i: byte; begin   randomize;   clrscr;   writeln('исходная матрица [-15; 15]: ');   for i: =1 to n do   begin     mass[i]: =random(31)-15;     write(mass[i]: 4);   end;   writeln;   for i: =1 to n do     if i mod 2< > 0 then       begin       back: =mass[i];       mass[i]: =mass[i+1];       mass[i+1]: =back;     end;   writeln('отформотированный матрица: ');   for i: =1 to n do   write(mass[i]: 4);   readln; end.

Популярно: Информатика