Информация - "разъяснение", сведения, данные в любой форме. Информатика - наука о работе с информацией компьютер - "вычислитель", устройство выполнять разные заданые операции файл - данные на носителе ограниченые объёмом и адресованые на определёное имя текстовый редактор - программа создавать, удалять и изменять текстовые файлы (вобще-то она любые файлы может менять) графический редактор - программа создавать, удалять и изменять графические файлы
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
Информатика - наука о работе с информацией
компьютер - "вычислитель", устройство выполнять разные заданые операции
файл - данные на носителе ограниченые объёмом и адресованые на определёное имя
текстовый редактор - программа создавать, удалять и изменять текстовые файлы (вобще-то она любые файлы может менять)
графический редактор - программа создавать, удалять и изменять графические файлы