3 года назад

Составьте алгоритм и программу вывода на экран кубов всех целых чисел от -5 до 12

Знания

Информатика

1 ответ:

вера бубнова3 года назад

0 0

begin
var a:=Range(-5,12).Println;
a.Select(x->x*x*x).Println;
end.

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

Дан видеофайл продолжительностью 1 час. ёмкость памяти запоминающего устройства = 1200 МБайт. Какой битрейт (в мегабитах) должен

TURIZM2014 [69]

1200 МБайт = 9600 Мбит
1 ч=3600 сек
9600/3600=2,6 mbps

0 0

4 года назад

В двумерном массиве Z[1..5,1..5] найти наименьший элемент среди элементов вспомогательной диагонали. вывести на экран его индекс

Denis Strozkiy

const
n= 5;

var
i,j,max: integer;
a: array [1..5,1..5] of integer;

begin
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:= random(10);
write(a[i,j],' ')
end;
writeln
end;
max:= a[n,1];
for i:=1 to n do
if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln(max)
<span>end.</span>

0 0

4 года назад

Помогите плиз решить! 1.С помощью repeat напишите программу,которая требует у вас пароль,например 111. Если пароль правильный,т

hilenki [7]

Вторая задача
var a,b,i,sum:integer;beginread(a,b);for i:=1 to b do begin inc(sum,a); end;writeln(sum);end.
Третья задача.
var a,b,i,sum:integer;beginwriteln('Cколько минут прошло?');read(a);sum:=1;for i:=1 to a do begin inc(sum,sum); end;writeln(sum);end.
Четвертая задача
var a,i,x:integer; fibb:array [0..1000] of integer;beginread(a);fibb[0]:=1;fibb[1]:=1;i:=2;while fibb[i-1]<a do begin fibb[i]:=fibb[i-1]+fibb[i-2]; inc(i); end;x:=i;for i:=1 to x-2 do beginwrite(fibb[i],' ');end;end.

0 0

4 года назад

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

Технологии распознания используемая в программе FineReader, базируется на следующих принципах: целостность, целенаправленности ,

SinEnergy

<span>Технология распознавания, используемая FineReader, базируется на уже упомянутых принципах целостности, целенаправленности и адаптивности. Все варианты ответов верны</span>

0 0

4 года назад

Составьте программу, которая сравнивает два введенных числа и печатает большее. На языке паскаль

Дина Туманова

Программа во вложениях

0 0

3 года назад