http://pro-spo.ru/workopenoffice/3900-openoffice-calc-dlya-nachinayushhix-elektronnaya-tablicza-kak-baza-dannyx-pechat-dokumenta СИЛКА НА САЙТ З ПОЯСНЕННЯМ!!!
Const n = 100;
const m = 50;
var a:array[1..n] of integer;
b:array[1..n] of integer;
i,it,bo:integer;
begin
for i:= 1 to n do
a[i] := trunc(Random(100));
for i:= 1 to m do
b[i] := trunc(Random(100));
bo:=1;
for i:=1 to m do
if bo = 1 then
for it:=1 to n do
if b[i] <> a[it] then begin bo:= 0; break; end;
if bo = 1 then write('Входят') else write('Не входят');
end.
если я правильно понял задание то так
5
Б А 1
В БАГЕ 1+1+1+1=4
Г А 1
Д БВ 4+1=5
Е Г 1
И Д 5
Ж ДВЕ 5+4+1=10
К ИЖЕ 10+5+1=16
Ответ:16
№6
АЕ=12
ACBFE=3+4+5+2=14
ACDFE=3+3+3+2=11
Ответ:1
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var t:=1000;
var k:integer;
repeat
k:=ReadInteger('->');
t-=k
until t<0;
Writeln('Всё...')
end.
<u>Пример</u>
-> 453
-> 216
-> 39
-> 64
-> 312
Всё...
<em>Решение для "древних паскалей"</em>
var
k,t:integer;
begin
t:=1000;
repeat
Write('->'); Read(k);
t:=t-k
until t<0;
Writeln('Всё...')
end.