8класс!
Составить алгоритм сложения двух целых чисел F и N , вводимых с клавиатуры. Результат сложения записать в виде переменной Z . По данному алгоритму написать программу в Паскале.
Алгоритм
1) алг сложение
цел F,N,Z
нач
ввод F
ввод Z
N:=F+Z
вывод Z
кон
2) алг сложение
цел F,N,Z
нач
ввод F
ввод N
Z:=F+N
вывод Z
кон
3) алг сложение
цел F,N,Z
нач
ввод F
ввод N
Z=F+N
вывод Z
кон
Программа в Паскале
1) program summa;
var
F,N,Z:integer;
begin
readln(F);
readln(N);
Z:=F+N;
writeln(Z);
2) program summa;
var
F,N,Z:integer;
begin
readln(F);
readln(N);
Z:=F+N;
writeln(Z);
end.
3)program summa;
var
F,N,Z:integer;
begin
readln(F);
readln(N);
Z:=F+N;
writeln(F);
end.
Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
Begin
if (N mod 10) > A then A:= N mod 10;
N:=N div 10;
End;
Write(A)
End.
Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
Begin
if A=B then C:=true;
if N>0 then
Begin
A:=N mod 10;
N:=N div 10;
End;
if A=B then C:=true;
if N>0 then
Begin
B:=N mod 10;
N:=N div 10;
End;
End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.
Подробнее - на -
** (* - любой из символов В или С)
*А*
ААА*АА*
АА*ААА*
А**
** (пока 6 вариантов)
Далее - аналогично:
**А
ААА*А*А
АА*АА*А
А*ААА*А
**А (ещё 5 вариантов)
ААА**АА
АА*А*АА
А*АА*АА
*ААА*АА (ещё 4 варианта)
АА**ААА
А*А*ААА
*АА*ААА (ещё 3 варианта)
А**
*А* (ещё 2)
** (ещё 1)
Итого: 6+5+4+3+2+1=21
Так как на месте * могут быть любые из 2 символов В или С, то это даст ещё по 4 варианта для каждого случая.
Можно здесь, конечно, комбинаторику вспомнить.
Итого: 21*4 = 84