using System.Threading.Tasks;
namespace trapec
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("[Введите символ, из которого будете рисовать трапецию]");
string c = Console.ReadLine();
Console.WriteLine(" " + c + " " + c + " " + c + " " + c + "");
Console.WriteLine(" " + c + " " + c + " " + c + " " + c + " " + c + " " + c + " ");
Console.WriteLine(" " + c + " " + c + " " + c + " " + c + " " + c + " " + c + " " + c + " " + c + " ");
Console.WriteLine("[Поздравляем, вы нарисовали самую идеальную трапецию во вселенной]");
}
}
}
1)
var a:array [1..100] of integer;
n,i:integer;
begin
for i:=10 to 99 do begin
a[i]:=i;
if (a[i] mod n=0) then writeln(a[i]);
end;
end.
2)
var a:array [1..100] of integer;
n,k,i,x,y,z: integer;
begin
readln(n,k);
for i:=n to k do begin
a[i]:=i;
x:=a[i] mod 10;
y:=a[i] div 10;
z:=y mod 10;
y:=y div 10;
if (x=y) or (x=z) or (y=z) then writeln(a[i]);
end;
end.
3)
var a,n,an,na: integer;
begin
readln(a,n);
if (a>0) and (b>0) then begin
an:=a*10+n;
na:=n*10+a else writeln('Введены неверные числа!');
end;
end.
begin
readln(c);
a:=ord(c);
writeln('code = ',a);
s:=0; k:=0; p:=1;
while a>0 do
begin
s:=s+a mod 10;
p:=p*(a mod 10);
k:=k+1;
a:=a div 10;
end;
writeln('s = ',s,' p = ',p,' sr = ',s/k:5:2);
end.
Пример:
&
code = 38
s = 11 p = 24 sr = 5.50