Информационные технологии: предназначение и обеспечение.

Знания

Информатика

1 ответ:

Светлана Алексеев... [7]4 года назад

0 0

Для знани информаций

Читайте также

Типовые задачи на Паскале! Массивы, прошу помогите. 1. Дано: N - Целое семизначное число, вводится пользователем. Проверка на се

тори00000000

1)
USES CRT;
VAR A:array[1..100] of Longint;
s:integer;
x,i:Longint;
BEGIN
CLRSCR;

Repeat
Writeln('Введите 7-ми значное число');
Readln(x);
i:=x;
s:=0;

while i>0 do
  begin
   i:=i div 10;
s:=s+1;
  end;

  if s > 7 then Writeln('Вы ввели число больше');
  if s < 7 then Writeln('Вы ввели число меньше');

Writeln;
until s=7;

for i:=1 to 7 do
   begin
  A[i]:=x mod 10;
  x:=x div 10;
end;

for i:=1 to 7 do
Write(A[i],' ');

READLN;
<span>END.</span>

0 0

3 года назад

Написать программу которая будет выводить на экран забор, состоящий из 50 реек равного размера, в pascalABC.netтипо как должно п

Ann1989 [4]

Program test;
uses graphabc;
var i,x:integer;
begin write('Сколько досок для забора тебе нужно? = ');
readln(x);
for i:=1 to x do begin
line(50+i*50,400,50+i*50,200);
line(50+i*50,200,75+i*50,190);
line(75+i*50,190,100+i*50,200);
line(100+i*50,200,100+i*50,400);
line(100+i*50,400,50+i*50,400);
end;
end.

0 0

4 года назад

Как на Паскале проверить число на нечетность? Например, на четность так: а mod 2=0. А как проверить на нечётность???

Лелечка Петрова

Mod 2=1 поскольку у нечетных чисел остаток при делении на 2 равно 1

0 0

4 года назад

Дано целое число Х и натуральное N. Составьте алгоритм вычисления Х^n. Проверьте алгоритм трассировкой.Напишите программу на Пас

vora11

Готово :)
..................

0 0

3 года назад