Из пункта а в пункт б при помощи кнопок там f2 f3 f4
Uses crt;
var n,s:integer;
begin
read(n);
s:=0;
while n<>0 do
begin
s:=s+n;
read(n);
end;
writeln(s);
<span>end.
Программа считывает введённые элементы, пока не введён 0, и выводит их сумму.</span>
Сначала немного про значки:
- Λ означает "и" (по-умному - "конъюнкция")
- V означает "или" (по-умному - "дизъюнкция")
- ¬ означает "не" ("отрицание")
Теперь к таблице:
"D и F" будет истиной только когда обе переменных - истина;
"D или F" будет истиной, если истиной является хотя бы одна из переменных;
"не D" - значение просто меняется наоборот
uses crt;
var
a:array[1..7,1..10] of integer;
b,i,j:integer;
begin
clrscr;
randomize();
//заполнение массива случайными числами
for i:=1 to 7 do
for j:=1 to 10 do
begin
a[i,j]:=random(10);
end;
//вывод массива
for i:=1 to 7 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
//удаляем строку 6 и меняем 5 и 2 строки местами
for j:=1 to 10 do
begin
a[6,j]:=a[7,j];
a[7,j]:=0;
b:=a[5,j];
a[5,j]:=a[2,j];
a[2,j]:=b;
end;
writeln('Отредактированный массив');
//выводим отредактированный массив
for i:=1 to 6 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
readln();
end.