Var a : array [1..10] of integer; I, p1, p2: integer; Begin I:=1; P1:=1; p2:=1; For i := 1 to 10 do a[i] := random(10); While i<=10 do begin If i mod 2 <> 0 then p1:=p1 *a[i] else p2:= p2 * a[i]; I := i +1; End; Write(p1,' ',p2) End.
Информационные технологии являются сейчас неотъемлемой частью нашей повседневной жизни. Кто не садится каждый день за компьютер? Каждый человек так или иначе знаком с этой вещью. Развитие и использование информационных технологий в начальной школе важны. Безусловно, младшеклассникам не стоит проводить излишне много времени за компьютером, но именно эти отведенные 20 минут можно провести с пользой. Ведь, если школьник пропустил один урок и никак не может понять тему, он может обратиться к Всемирной паутине. Если же ученику задали доклад, он справится значительно быстрее с заданием, нежели без использования информационных технологий.
К сожалению, подобное сейчас не часто встретишь, но информационные технологии ученику, если ему нельзя носить тяжести, и он сможет просто загрузить все учебники на свой носитель. Я считаю, что уроки информатики должны преподаваться непосредственно с самого начала обучения. Каждый должен знать базовые вещи и уметь правильно работать за компьютером, а не только запускать игры на своем мобильном телефоне. Информационные технологии сейчас стали важной частью нашей жизни, и каждого человека с ранних лет должны обучать безопасности в интернете и правильному использованию компьютера.
//PascalABC.NET 3.1 сборка 1239 var brackets: array [0..2, 0..1] of char := (('{', '}'), ('[', ']'), ('(', ')'));
begin var s := ReadlnString(); var counter := 0; var max_depth := 0;
for var i := 1 to s.Length do begin if s[i] = '(' then counter += 1 else if s[i] = ')' then counter -= 1 else continue; if counter < 0 then begin writeln('brackets error'); Halt; end; if counter > max_depth then max_depth := counter; end;
counter := 0; for var i := 1 to s.Length do begin if s[i] = '(' then counter += 1 else if s[i] = ')' then counter -= 1 else continue;
if (counter = max_depth - 1) and (s[i] = '(') then s[i] := brackets[1, 0] else if (counter = max_depth - 2) and (s[i] = ')') then s[i] := brackets[1, 1] else if (counter = max_depth - 2) and (s[i] = '(') then s[i] := brackets[0, 0] else if (counter = max_depth - 3) and (s[i] = ')') then s[i] := brackets[0, 1]; end;
I, p1, p2: integer;
Begin
I:=1;
P1:=1; p2:=1;
For i := 1 to 10 do a[i] := random(10);
While i<=10 do begin
If i mod 2 <> 0 then p1:=p1 *a[i] else p2:= p2 * a[i];
I := i +1;
End;
Write(p1,' ',p2)
End.