Begin WriteLn('введите первое число: '); ReadLn(a); WriteLn('введите второеое число: '); ReadLn(b); sum_d:=(a div 10) + (b div 10); sum_e:=(a mod 10) + (b mod 10); WriteLn('сумма десятков чисел: ', sum_d); WriteLn('сумма единиц чисел: ', sum_e); end.
Вторая программа.
Program d_and_e;
Var a,b,mult_d1_e2,mult_e1_d2:integer;
Begin WriteLn('введите первое число: '); ReadLn(a); WriteLn('введите второе число: '); ReadLn(b); mult_d1_e2:=(a div 10) * (b mod 10); mult_e1_d2:=(a mod 10) * (b div 10); WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2); WriteLn('произведение единиц 1-го и десятков 2-го числа: ', mult_e1_d2); end.
Третья программа.
Program d_and_e;
Var a,b,mult_d1_e2,sum_e1_d2:integer;
Begin WriteLn('введите первое число: '); ReadLn(a); WriteLn('введите второе число: '); ReadLn(b); mult_d1_e2:=(a div 10) * (b mod 10); sum_e1_d2:=(a mod 10) + (b div 10); WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2); WriteLn('сумма единиц 1-го и десятков 2-го числа: ', sum_e1_d2); end.
// PascalABC.NET 3.0, сборка 1073 var a,b,c:integer; begin Write('Введи a,b,c: '); Read(a,b,c); if (a=b) or (a=c) or (b=c) then Writeln('Есть пара одинаковых') else Writeln('Все числа различные') end.
Тестовое решение: Введи a,b,c: 6 3 -12 Все числа различные
Введи a,b,c: 5 -4 5 Есть пара одинаковых
// PascalABC.NET 3.0, сборка 1073 var n:string; a,b:char; begin Write('Введи натуральное число n: '); Readln(n); Write('Введи подряд пару разыскиваемых цифр: '); Read(a,b); if Pos(a,n)>0 then Writeln('В числе есть цифра '+a) else Writeln('В числе цифры '+a+' нет'); if Pos(b,n)>0 then Writeln('В числе есть цифра '+b) else Writeln('В числе цифры '+b+' нет') end.
Тестовое решение: Введи натуральное число n: 3141592653589793 Введи подряд пару разыскиваемых цифр: 47 В числе есть цифра 4 В числе есть цифра 7
// PascalABC.NET 3.0, сборка 1073 var i,n:integer; fiba,fibb,fib:longint; begin Write('Введи натуральное число (1-46): '); Read(n); if n<3 then Writeln('Число Фибоначчи равно 1') else begin fiba:=1; fibb:=fiba; for i:=3 to n do begin fib:=fiba+fibb; fiba:=fibb; fibb:=fib end; Writeln('Число Фибоначчи равно ',fib) end end.
Тестовое решение: Введи натуральное число (1-46): 13 Число Фибоначчи равно 233
Program d_and_e;
Var
a,b,sum_d,sum_e:integer;
Begin
WriteLn('введите первое число: ');
ReadLn(a);
WriteLn('введите второеое число: ');
ReadLn(b);
sum_d:=(a div 10) + (b div 10);
sum_e:=(a mod 10) + (b mod 10);
WriteLn('сумма десятков чисел: ', sum_d);
WriteLn('сумма единиц чисел: ', sum_e);
end.
Вторая программа.
Program d_and_e;
Var
a,b,mult_d1_e2,mult_e1_d2:integer;
Begin
WriteLn('введите первое число: ');
ReadLn(a);
WriteLn('введите второе число: ');
ReadLn(b);
mult_d1_e2:=(a div 10) * (b mod 10);
mult_e1_d2:=(a mod 10) * (b div 10);
WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);
WriteLn('произведение единиц 1-го и десятков 2-го числа: ', mult_e1_d2);
end.
Третья программа.
Program d_and_e;
Var
a,b,mult_d1_e2,sum_e1_d2:integer;
Begin
WriteLn('введите первое число: ');
ReadLn(a);
WriteLn('введите второе число: ');
ReadLn(b);
mult_d1_e2:=(a div 10) * (b mod 10);
sum_e1_d2:=(a mod 10) + (b div 10);
WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);
WriteLn('сумма единиц 1-го и десятков 2-го числа: ', sum_e1_d2);
end.