4 года назад

Составить программу вывода всех чисел от одного до n если число n вводит пользователь , составить в turbo pascal

Знания

Информатика

1 ответ:

jkmax4 года назад

0 0

Var n,i:integer;
begin;
readln(n);
for i:=1 to n do
writeln(i);
end.

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

Трудный выбор Ограничение времени 1 секунда Ограничение памяти 64Mb Ввод стандартный ввод или input.txt Вывод стандартный вывод

Суровый смайлик [5.1K]

Чого учать в й четвертий класах

0 0

4 года назад

Var c, d: integer; procedure R(var x, y: integer); begin y:=x+1 end; Укажите, какие вызовы процедуры ошибочны. R(sqr(c)+c, d) R

Дашунечка [131]

R(sqr(c)+c, d) - по тому что ты в начале указал что счетчик процедуры будет интеджером, а если вывести из коренья то может получится и дробное число...

0 0

4 года назад

1. Могут ли два документа иметь один и тот же адрес? 2.Может ли один и тот же документ иметь несколько различных адресов?

Алексей Ром

1.Может

2.Не может

-_____________________________________-

0 0

4 года назад

Заполните массив А первыми десятью крупными латинскими буквами и вывести его на экран столбик . Паскаль

Viktor64

Const
    n = 10;

var
    a: array[1..n] of string;
    i: integer;

begin
    for i := 1 to n do
    begin
        a[i] := chr(ord('A') + i - 1);
        writeln(a[i]);
    end;
end.

0 0

4 года назад

№1 составить программу формирования и вывода на экран в строку с тремя знаками после запятой массива, заданного 8-ю вещественным

Стася [55]

1. Program enot;
Var A: array[1..8] of real;
i:integer;
begin
for i:= 1 to 8 do
begin
a[i]:=random(41)-20;
writeln(a[i]:8:3);
end;
end.

2. Program fg;
Var a: array [1..13] of integer;
i:integer;
begin
writeln('первоночальный массив: ');
for i:= 1 to 13 do
begin
a[i]:=random(13)+5;
writeln(a[i], ' ');
end;
writeln('получившийся массив: ');
for i:= 13 downto 1 do
writeln(a[i],' ');
end.

3.
Program enot;
Var a: array [1..7] of integer;
i:integer;
begin
for i:= 1 to 7 do
begin
a[i]:=random(25)+104;
writeln(a[i]);
end;
end.

0 0

3 года назад