Информатика

Аватар
Информатика, опубликовано 2018-08-22 18:05:56
Аватар
Информатика, опубликовано 2018-08-22 18:05:39
Аватар
Информатика, опубликовано 2018-08-22 18:05:13
Аватар
Информатика, опубликовано 2018-08-22 18:05:12
ПОМОГИТЕ ПОЖАЛАУЙСТА!!!!!!!!!! 35. B 4 № 691. В таблице Ves хранятся данные о весе в килограммах по группе учащихся спортивной школы (Ves[1] — вес первого учащегося, Ves[2] — вес второго учащегося и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках: Алгоритмический язык Бейсик Паскаль алг нач целтаб Ves [1:14] цел i, n Ves[1]:= 25; Ves[2]:= 21; Ves[3]:= 23; Ves[4]:= 28; Ves[5]:= 30; Ves[6]:= 25; Ves[7]:= 31; Ves[8]:= 28; Ves[9]:= 25; Ves[10]:= 28; Ves[11]:= 30; Ves[12]:= 27; Ves[13]:= 26; Ves[14]:= 24; n := 0 нц для к от 1 до 14 если Ves[i] > 26 то n : = n + 1 все КЦ вывод n КОН DIS Ves(14) AS INTEGER DIS i,n AS INTEGER Ves(1)= 25: Ves(2)= 21 Ves(3)= 23: Ves(4)= 28 Ves(5)= 30: Ves(6)= 25 Ves(7)= 31: Ves(8)= 28 Ves(9)= 25: Ves(10)= 28 Ves(11)= 30: Ves(12)= 27 Ves(13)= 26: Ves(14)= 24 n = 0 FOR i = 1 TO 14 IF Ves(i) > 26 THEN n : = n + 1 END IF NEXT i PRINT n Var i, n: integer; Ves: array[1..14] of integer; Begin Ves[1]:= 25; Ves[2]:= 21; Ves[3]:= 23; Ves[4]:= 28; Ves[5]:= 30; Ves[6]:= 25; Ves[7]:= 31; Ves[8]:= 28; Ves[9]:= 25; Ves[10]:= 28; Ves[11]:= 30; Ves[12]:= 27; Ves[13]:= 26; Ves[14]:= 24; n := 0; For i := 1 to 14 Do If Ves[i] > 26 Then Begin n : = n + 1; End; Writeln(n) End.
Аватар
Информатика, опубликовано 2018-08-22 18:04:25
Паскаль! Натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в K -ю степень (где K – количество цифр в числе) равна самому числу. Например, 153 = 1^ 3 + 5^ 3 + 3^ 3 . Напишите программу, которая находит все числа Армстронга на отрезке [ a , b ] . Входные данные Входная строка содержит два натуральных числа – значения a и b , разделённых пробелами. Гарантируется, что a ≤ b . Выходные данные Программа должна вывести в одну строчку все числа Армстронга на отрезке [ a , b ] , разделив их пробелами. Если таких чисел нет, программа должна вывести число -1. У меня программа написана, но она просто выводит все числа Армстронга, помогите учесть промежуток от a до b и если таких чисел нет то вывести -1 var i,l,k,a,b,c,s,e,g,f,x,h,j:integer; begin for i:=100 to 9999 do begin l:=i; while l0 do begin l:=l div 10; k:=k+1; end; if k=3 then begin a:=i mod 10; b:=i div 100; c:=i div 10 mod 10; s:=a*a*a+b*b*b+c*c*c; if i=s then write(i, ); end else begin e:=i mod 10; g:=i div 10 mod 10; f:=i div 100 mod 10; x:=i div 1000; h:=f*f*f*f+g*g*g*g+e*e*e*e+x*x*x*x; if i=h then write(i, ); end; k:=0; end; end.