4 года назад

Что будет выведен она экран после выполнения фрагмента программы. for: 1to 4 do writeln(i*i);

1 ответ:

Yurgen4 года назад

0 0

Фрагмент программы
for i:=1 to 4 do
writeln(i*i);

на экране монитора увидим четыре числа каждое с новой строчки
1
4
9
16

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

Дан массив из 10 элементов, заполненный случайным образом. Значения элементов от -50 до 50. Вывести на экран элементы массива, о

BOCH2000

Var
a: array [1..10] of integer;
i, n: byte;
begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
n:=abs(a[i] mod 10);
if (n = 4) or (n = 8) then write(a[i]:4);
end;
readln;
end.

0 0

1 год назад

Составить программу вычисления стоимости поездки на автомобиле на дачу (туда и обратно) .Исходными данными являются: расстояние

Антохан

Int _tmain(int argc, _TCHAR* argv[])
{
int s, rashod, ben;
 printf("Расстояние до дачи (км): \n", s);
printf("Расход бензина ( литров на 100 км пробега): \n", rashod);
printf("Цена литра бензина (руб.): \n", ben);
printf("Поездка на дачу и обратно обойдется в \n", (2*s/100)*rashod*ben);

 return 0;
}
s - расстояние
rashod - расход
ben - цена 1 литра

0 0

4 года назад

Дано целое число N (> 1). Вывести наименьшее целое K, при котором выполняется неравенство 3K < N, и само значение 3K

007q

Program z1;
Var k:integer;
Begin
Readln(k);
Writeln('1');
End.

0 0

4 года назад

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

ПОМОГИТЕ ОТВЕТИТЬ ПрАвИлЬнО НА ТЕСТ ПО ИНФОРМАТИКЕ

alexandru0025 [7]

1-Б

2-В

3-А

4-Г

2. А) и В)

0 0

1 год назад

PascalОписать функции Min2(A,B) и Max2(A,B)2 вещественного типа, находящие минимальное и максимальное из двух вещественных чисел

Наивный [14]

Function max(a As Double, b As Double) As Double

Dim i, j, k, l As Integer

k = Sgn(a - b)

l = k * k

i = l * (l + k) / 2

j = l * (l - k) / 2

max = a * i + b * j

End Function

Function min(a As Double, b As Double) As Double

Dim i, j, k, l As Integer

k = Sgn(b - a)

l = k * k

i = l * (l + k) / 2

j = l * (l - k) / 2

min = a * i + b * j

End Function

Excel VBA

0 0

4 года назад