4 года назад

Написать программу и сделать блок схему Вход:а Выход: квадраты всех чисел от 1 до а

Знания

Информатика

1 ответ:

Волшебник [6]4 года назад

0 0

var a,i:integer;

begin

readln(a);

for i:=1 to a do writeln(i*i);

end.

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

С клавиатуры вводится матрица вещественных чисел размером N строк на M столбцов. N не превосходит 10, M не превосходит 20. Найти

Alex1109 [7]

// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',n,',',m,'] ***');
var a:=ReadMatrInteger(n,m);
var z:=ReadInteger('Z=');
var s:=a.ElementsWithIndexes.Where(x->abs(x[2])<=z);
if s.Count>0 then begin
    var t:=s.First;
    Writeln('Строка ',t[0]+1,', столбец ',t[1]+1)
    end
else
    Writeln('Элемент не найден');
end.

Пример
Количество строк в матрице: 4
Количество столбцов в матрице: 5
*** Исходная матрица [4,5] ***
-33 -46 7 48 -44
-13 -3 -13 -10 48
-18 -25 -39 -23 -44
28 32 -1 39 3
Z= 5
Строка 2, столбец 2

0 0

4 года назад

Мне надо вывести номер буквы в алфавите имени SIMA var a : array [1..4] of char; i: integer; begin a[1]:='S'; a[2]:='I'; a[3]:='

leena [23]

Var
    a: array [1..4] of char;
    i: integer;

begin
    a[1] := 'S';
    a[2] := 'I';
    a[3] := 'M';
    a[4] := 'A';

    for i := 1 to 4 do
        write(ord(a[i]) - 64, ' ');
end.

а самостоятельно подобрать число никак?

0 0

3 года назад

Картина это документ или нет?

руслан вахрушев

<span>наверно переносчик данных но я точно не знаю</span>

0 0

3 года назад

Прочитать ещё 2 ответа

Дан двумерный массив 5 на 5 нужно заменить значения сумма индексов которых четная на значение 2 ого элемента 1 ого столбика

Екатерина1981 [1]

Незнаю ну короче удачи на уроке

0 0