Алгоритмическая конструкция, в которой, в зависимости от результата проверки условия («да» или «нет»), предусмотрен выбор одной из двух последовательностей действий:
цикл
следование
ветвление
2.
Условный оператор организовывает:
неполное ветвление
вложенный цикл
цикл с параметром
цикл с условием
3.
Алгоритм называется разветвляющимся, если
действия выполняются последовательно друг за другом
некоторая последовательность действий повторяется многократно
существует условие выбора для выполнения действий
выполняется ранее разработанный алгоритм
4.
В полном ветвлении существуют действия
только в ветке «Да»
в ветке «Да» и ветке «Нет»
только в ветке «Нет»
5.
В неполном ветвлении существуют действия
только в ветке «Да»
в ветке «Да» и ветке «Нет»
только в ветке «Нет»
6.
В результате выполнения фрагмента программы: а:=5; b:=20; а:=а-b/2; если а>b то с:=а+b иначе с:=b-а; все переменная с примет значение:
25
14,5
-15
-14,5
№1
Program z1;
var N:integer;
Begin
write ('Введите число N: ');
readln(N);
if (N mod 2 = 0) and (N div 100 < 1) and (N > 9) then write('Данное число является четным двузначным') else if (N div 100 < 1) and (N > 9) then write ('Данное число не четное двузначное');
end.
№2
Program z2;
var a, b, c, k:integer;
Begin
k:=0;
writeln ('Введите числа a, b и c: ');
readln(a,b,c);
if a<0 then k:=k+1;
if b<0 then k:=k+1;
if c<0 then k:=k+1;
write('Количество отрицательных чисел: ',k)
end.
const alphabet="";
var FileName:string
procedure ReadFile(FileName:string);
var f:text;
s:string;
i,k:integer;
begin
assign(f,FileName);
reset(f);
while not eof (f) do begin { пока не конец файла }
readln (f, s);
for i:= 1 to length(s) do begin
k:=pos(s[i], alphabet);
if k=1 then k=length(alphabet); {это приколы изза я}
if k>1 then s[i]:=alphabet[k-1];
end;
writeln(s);
end;
close(f);
end;
Begin
read(FileName);
ReadFile;
readln;
End.