DIM d,n, i AS INTEGER
5-9 класс
|
n=4
d=n*2
FOR i = 1 to 3
d= d+ 2*i
NEXT I
PRINT d
записать значение переменной d. Спасибо.
20
..........................................
Другие вопросы из категории
введенного отрицательного числа
рождения 1 доллар. В каждый следующий день рождения он удваивал свой подарок и прибавлял к нему столько долларов, сколько лет исполнилось его племяннику. Определите, к какому дню рождения сумма превысит 100 долларов? Помогите плииз.
Пожалуйста люди очень срочно
Читайте также
Алгоритмический язык
Бейсик
Паскаль
алг
нач
цел s, k
s := 0
нц для k от 7 до 11
s := s+11
кц
вывод s
кон
DIM k, s AS INTEGER
s = 0
FOR k = 7 TO 11
s = s+11
NEXT k
PRINT s
Var s,k: integer;
Begin
s := 0;
for k := 7 to 11 do
s := s+11;
writeln(s);
End.
DIM k, s AS INTEGER
s = 0
FOR k = 6 TO 12
s = s + 5
NEXT k
PRINT s
Каким в итоге будет s?
Фибоначчи превышающие 1000.
надо сотавть программу начиная со слов
Dim a as integer...
min,max:integer; begin ClrScr; randomize; writeln('Исходный массив:'); for i:=1 to Nmax do begin m[i]:=random(20)-10; write(m[i],' '); end; max:=m[1]; min:=m[1]; i_min:=1; i_max:=1; for i:=1 to Nmax do begin if m[i]>max then begin max:=m[i]; i_max:=i; end; if m[i]