// 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
Виталий
19.10.2022
// pascalabc.net 3.0,сборка 1073 const n=10; var a,b: array[1..n] of integer; i,p,k,max: integer; begin randomize; max: =-200; k: =0; writeln(' № a b aixbi'); writeln('================='); for i: =1 to n do begin a[i]: =random(21)-10; b[i]: =random(21)-10; p: =a[i]*b[i]; writeln(i: 2,a[i]: 4,b[i]: 4,p: 5); if p< 0 then begin inc(k); if p> max then max: =p end end; writeln('================='); writeln('количество aixbi< 0 равно ',k); writeln('максимум среди этих произведений равен ',max); end. тестовое решение: № a b aixbi ================= 1 8 -7 -56 2 -7 -8 56 3 -4 3 -12 4 -9 -2 18 5 -10 3 -30 6 -3 3 -9 7 0 2 0 8 -9 -7 63 9 -7 -7 49 10 0 -7 0 ================= количество aixbi< 0 равно 4 максимум среди этих произведений равен -9
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Это кроссворд по информатике вопрос : процесс создания и использования модели что это