1)Первый способ:
program one;
var a,b:integer;
begin
b:=0;
readln(a);
while a<>100 do
begin
if a=77 then
begin
b:=b+1;
readln(a);
end
else readln(a);
end;
if b>0 then writeln('Yes')
else writeln('No');
end.
2)Второй способ:
program one;
var a,b:integer;
begin
b:=0;
repeat
readln(a);
if a=77 then b:=b+1;
until a=100;
if b>0 then writeln('Yes')
else writeln('No');
end.
Системное по- необходимоя часть по, без которой компьютер не может работать. (входит: опепационная система, драйверы, утилиты)
прикладное по- состоит из программ, с помощью которых пользователь решает информационные задачи ( входит: офисные приложения базы данных сетевые приложения обучающие программы энциклопедии игры программы переводчик)
системное программирования- предназначенны для создания всех видов программ. Инструмент для работы программистов.
1) Если а>0 и b>0, то с=а+b=2+5=7
2) Если a>0 не выполняется и b>0 не выполняется, то с=0
Не так уж и трудно, если подумать...
program Project2;
var
n,a,b,c,i,k,max,min: longint;
inp,outp: text;
begin
assign(inp,'input.txt');
reset(inp);
assign(outp,'output.txt');
rewrite(outp);
readln(inp,n);
max:=0;
min:=0;
c:=0;
for i:=1 to n do
begin
read(f1,a);
if i=1 then
b:=a;
if a>max then
max:=a;
k:=a-c;
c:=a;
if k<0 then
begin
k:=abs(k);
min:=min+k;
if k>min then
min:=k;
end;
end;
max:=max-b;
write(outp,max,' ',min);
close(inp);
close(outp);
end.