Переменной А присвоить её же значения, увеличенные в N раз.

Знания

Информатика

1 ответ:

Tanai555 [13]4 года назад

0 0

А:=A*N - универсальная запись для любого языка программирования

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

СРОЧНО!!СРОЧНОООООООООООО!!!ПОЖАЛУЙСТААА

Gregish

Var q: integer;
 s: real;
begin
 q:=0;
 repeat
 inc(q);
 s:=sqr(q)*q/125 - sqr(q) -90*q + 10000;
 until s<0;
 writeln('объем выпуска: ',q);
 s:=(sqr(q)*q/125-sqr(q)+180*q+10000)/q;
 writeln('затраты на единицу: ',s:5:2);
end.

объем выпуска: 86
затраты на единицу: 269.45

0 0

4 года назад

Найти сумму квадратов натуральных чисел, кратных 3, и не привышающих заданное число n Можно пожалуйста сделать циклом

Татарингариф [116]

Program n1;
var sum,n,i: integer;
begin
readln(n);
for i:=3 to n do if i mod 3=0 then sum:=sum+i*i;
write(sum);
end.

0 0

4 года назад

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

Срочно Очень нужна помощь

nepeky4e69ka

1 задание - 2

2 задание:

Find: голубой

replace: цвет

0 0

4 года назад

Что есть в системном блоке компьютера .

AleksandraMar [7]

Материнская плата, центральный процессор, оперативная память, блок питания, жесткий диск, видеокарта, CD/DVD привод.

0 0

4 года назад

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

Значение переменной D, вычисленное в программе, написанной на языке BASIC, D = О М = 1 FOR А = -1 ТО О FOR В = -1 ТОО FOR С

Kliee [50]

Код доделанный (исправленна куча русских букв) и немного переделанный под VBScript, потому что BASIC у меня нет

Sub Zadanie()
 D = 0
 M = 1

 FOR A = -1 to 0
 FOR B = -1 to 0
 FOR C = -1 to 0
 D = D - ((A AND C) EQV NOT (B IMP (A OR C))) * M
 M = M * 2
 NEXT
 NEXT
 NEXT

 Msgbox "D="& D
End Sub

Вывод
D=218

0 0

4 года назад