begin for i := 1 to 15 do begin write('a[', i, '] = ');readln(a[i]); if i mod 3 = 0 then s := s + a[i]; end; writeln('Сумма элементов, индексы которых кратны 3 = ', s); end.
begin for i := 1 to 15 do begin a[i] := random(100);write(a[i]:4); end; writeln; for i := 1 to 15 do begin if i mod 2 = 0 then a[i] := a[i] * 2; write(a[i]:4); end; end.
var a: array[1..m] of integer; i, n, k, tmp: integer;
begin write('число элементов : '); readln(n); for i := 1 to n do begin write('a[', i, '] = ');readln(a[i]); end; repeat write('Введите к (k<>1 и k<>n)'); readln(k); if (k = 1) or (k = n) then writeln('Ошибка, повторите ввод'); until (k <> 1) and (k <> n); for i := 1 to n do write(a[i]:4);writeln; tmp := a[k - 1];a[k - 1] := a[k + 1];a[k + 1] := tmp; for i := 1 to n do write(a[i]:4); end.
Эту задачу уже решали здесь. Но, если трудно поискать, то вот программа: var a,b,c,d,x,y,z,y1,z1,y2,z2,nod:integer; begin writeln('1-я дробь (числитель и знаменатель):'); readln(a,b); writeln('2-я дробь (числитель и знаменатель):'); readln(c,d); y1:=a*d+c*b; y2:=y1; z1:=b*d; z2:=z1; while (y2>0)and(z2>0) do if y2>z2 then y2:=y2 mod z2 else z2:=z2 mod y2; nod:=y2+z2; y1:=y1 div nod; z:=z1 div nod; x:=y1 div z; y:=y1 mod z; if x>0 then writeln(x,' ',y,'/',z) else writeln(y,'/',z); end.
Пример: 1-я дробь (числитель и знаменатель): 3 4 2-я дробь (числитель и знаменатель): 5 6 1 7/12
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Кто может скинуть кроссворд по информатике 15 слов