Const
n = 5;//Емкость памяти типа "кольцо"
type
Ring = array[1..n] of integer;
var
ir: integer;
R: Ring;
procedure Add2Ring(a: integer);
// Добавляет в кольцо очередной элемент
begin
if ir = n then ir := 1
else ir := ir + 1;
R[ir] := a
end;
var
i, S, d: integer;
P: longint;
begin
S := 0;
ir:=0;
writeln('Вводите числа, 0 - конец ввода');
for i := 1 to n do
begin
readln(d);
S := S + d;
Add2Ring(d)
end;
repeat
readln(d);
if d <> 0 then Add2Ring(d);
until d = 0;
P := 1;
for i := 1 to n do P := P * R[i];
writeln('Сумма первых ', n, ' чисел: ', S, ', произведение последних: ', P)
end.
Цикл while - делай, пока условие истинно
т.е. пока i <= 9 программа выполняет блок внутри этого цикла в операторных скобках begin .. end;
P=1, i=3:
i (=3) <= 9 ? да => p:=1*(3 div 3)=1*1=1, i:=3+1=4
i (=4) <= 9 ? да => p:=1*(4 div 3)=1*1=1; i:=4+1=5
и т.д. пока верно условие i<=9
P.S. div - деление нацело, т.е. 5 div 2=2, в пятерке содержится 2 раза число два, в ответ идет 2
а вот 5 mod 2 = 1 это деление с остатком
Program gt;
var a:string;
k,l,i:integer;
begin
readln(a);
//Сначала переведем вес текст в нижний регистр
l:=length(a);
k:=0;
for i:=1 to l do
begin
if(ord(a[i])>64)and(ord(a[i])<91)then a[i]:=chr(ord(a[i])+32);
if(a[i]='а')or(a[i]='у')or ... or(a[i]='е')then k:=k+1; //здесь вместо точек пиши как ////предедушие но с гласными(другими) буквами
end;
writeln(k);
end.
... Каждый начал приводить аркументы, мол, я лучше потому-то - потому-то.
Без клавиатуры мы бы не смогли печатать, то есть не смогли бы передавать информацию на компьютер, без монитора мы бы не смогли видеть эту самую информацию, без памяти мы бы не могли сохранить ее (информацию), а без процессора и вовсе компьютер не стал бы работать.
И клавиатура, и монитор, и память, и процессор - все они неотъемлимые части компьютера, без них он бы не работал.