4 года назад

Помогите 3 ден не могу решить, буду благодарен за помощь case x of 1: write(x); 2: write(x+1); else read(m); end;

1 ответ:

0 0

Если х единица выводим x (на экране будет 1)
если x двойка выводим x+1 (на экране будет 2)
иначе читаем(вводим) m
конец.

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

Выберите правильные утверждения 1.Цветовая модель CMYK применяется для отражённого цвета 2.Цветовая модель RGB применяется для и

zhukvlad22

правильно ответом есть 4

0 0

1 год назад

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

Найти сумму положительных элементов вектора C[15]. Помогите составить программу в pascalabc

kaktus9166

//Проверил. Да, равно.
//Pascal ABC.NET 3.1 сборка 1219

Const
n=15;

Var
ar:array[1..n] of integer;
i,s:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-10,10);
write(ar[i]:4);
if ar[i]>0 then s:=s+ar[i];
end;
writeln;
write('Result:',s);
end.

Пример работы программы:
Array:
3 -7 0 9 -9 6 -1 0 1 0 -7 9 -9 -5 -8
Result:28

0 0

3 года назад

Вася придумал игру,в которой герой должен добраться до финиша,прыгая по платформам. Прыжок может быть на соседнюю платформу или

ИннаДК [320]

F[0] = 0;
f[1] = 5;
...
f[i] = min( (f[i-1] + |x2-x1|) , (f[i-2] + 3*<span>|x2-x1|) );

Ответ: 15</span>

0 0

4 года назад

Помогите пожалуйста...возникли трудности с решением данного задания..у меня вариант под цифрой 7,где задания в прямоугольничках)

Надежда509

<span>Если знаешь, как исследовать функцию, то просто. Находим производную и приравниваем к нолю. В нашем случае
2·а·x+b =0
отсюда находим
x=-b/(2·a)
подставляем в параболу и находим
y=b²/(4·a)-b²/(2·a)+c
Это и будет математическая модель.
Дальше составляем блок схему. И программу.
Я могу в VBA Excel,
Есили есть офис, то открой в Excel
жми одновременно две клавиши Alt F11
откроется редактор VBA
и в модуле можно увидеть программу.
Зашита листа без пароля, чтобы не испортить формулы</span>

0 0

3 года назад

Скорость передачи данных по локальной сети 17 Мбит в секунду. Ученик перекачивал игру 19 минут. а) Сколько это гигабайт?

Юрий15

V=t*s, где t - время в сек., s - скорость в мбит/сек.
V= (19*60)*17= 19380 Мбит = 2422,5 Мбайт = 2,37 ГБайт

0 0

4 года назад