Короче, смотри 1 + 1 = 5 + 1 выполняется Else(В данном коде у тебя ничего не происходит), пошли по кругу, 1 + 2 = 5 + 1 снова выполняется Else, и т.д, пока не будет 1 + 5 = 5 + 1 тогда здесь уже выполняется Then, а именно число которые стоит в позиции i = 1 и j = 5 (i - это строки)(j - это столбцы) например там стоит число 20 то уже будет 21.

0 0

4 года назад

Составьте программу для вычисления значения функции:Y=|x|, ecли x<1;x1/2, для всех остальных x.

Emberina [69]

var x,y:real;
begin
writeln('Vvedite x');
readln(x);
if x<1 then y:=abs(x) else y:=x*1/2;
writeln(y);
end.

0 0

4 года назад

1. Нефтебаза отпустила за два дня S л. бензина. Во второй день база отпустила на V л. больше. Сколько литров бензина база отпуст

ЛУИНДА [50]

//PascalABC.NET 3.1 сборка 1200
begin
var s:=0.0;
var v := 0.0;
read(s,v);
writeln(2*s+v);
end.

0 0

4 года назад

Несжатое растровое изображение размером 128х128 пикс. занимает 2Кб. памяти. Каково максимально возможное число цветов в палитре

37090 [1]

2 Кбайта=2*2^13 бита= 2^14 бита
128 *128=2^7 *2^7=2^14 (количество пикселей)
2^14(бита) : 2^14 (кол. пикс.) =1 бит ( для одного пикселя)
2^1=2 - количество цветов (чёрно-белое изображение)

0 0

4 года назад

Напишите программу, которая найдет значение выражения 1*1+2*2...n*n. В паскале.

Напишите программу, которая найдет значение выражения 11+22...n*n. В паскале.