var
a,b,c: integer;
begin
readln(a,b,c);
writeln(a+b+c)
end.
(.. или ..) и (..или ..)Скобки означают о приоритете - какое выражение выполнять первым. В данном случае у нас 3 действия: 1,2 по порядку слева направо с операцией ИЛИ, а так же 3 с И.И - это коньюнкция (логическое умножение), оно верно только в том случае, если оба выражения являются истинными.ИЛИ - дизъюнкция (логическое сложение), оно верно, если хотя б одно выражение является истинным.Давайте решим Ваш пример:9999999 - это максимальное семизначное число, давайте подставим его в примере и приведём к нужному виду.Я выбрал "есть хотя бы одна четвёрка" И "нет восьмерок", в результате самое максимальное семизначное число, которое подойдёт к данному условию - 9999994
Uses SysUtils,Windows;
var a:array of Integer; i,n,s,o:Integer;
begin
o:=0;
s:=0;
SetConsoleOutputCP(1251);
Randomize;
write('Введите "N": ');
readln(n);
SetLength(a,n);
for i:=0 to Length(a) do
begin
a[i]:=Random(10)-5;
write(a[i]:3);
end;
Writeln;
Writeln;
for i:=0 to Length(a) do
begin
if a[i] mod 2=1 then
Inc(s);
if a[i]<0 then
Inc(o);
a[i]:=a[i]*(-1);
end;
Writeln('Кол-во отрицательных элементов: ',o);
Writeln('Кол-во нечетных элементов: ',s);
Writeln;
for i:=0 to Length(a) do
write(a[i]:3);
readln;
<span>end.</span>
<em><u>Задание 1. </u></em>На самом деле в нем ошибка. Числ Фибоначчи определены начиная с f0=1, а в задании дважды указано f1=1.
uses Crt;
var
k,n,f0,f1,fk:longint;
begin
ClrScr;
f0:=1; f1:=1; k:=2;
Write('n='); Read(n);
Write(f0,' ',f1);
while k<=n do begin
fk:=f0+f1; f0:=f1; f1:=fk; Inc(k);
Write(' ',fk)
end;
Writeln;
ReadKey
end.
<em><u>Тестовое решение:</u></em>
n=20
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946
<em><u>Задание 2.</u></em>
uses Crt;
var
P:real;
M:char;
s:string;
begin
ClrScr;
Write('P='); Readln(P);
Write('M='); Readln(M);
Str(P:0:0,s);
s:=Copy(s,1,3);
if Pos(M,s)>0 then Writeln('Yes') else Writeln('No');
ReadKey
end.
<em><u>Тестовое решение:</u></em>
P=54231.70475438
M=4
Yes
Устройство современного компьютера:
Процессор
Память
Оперативная память
Долговременная память
Жесткий магнитный диск
Флеш-память
Лазерные диски
CD
DVD
Устройство ввода
Клавиатура
Мышка
Сканер
Графический планшет
Цифровая камера
Джойстик
Устройства вывода
Монитор
Принтер
Струйный
Лазерный
Матричный