Хорошисты или умные и т.д с информатикой заранее огромное... Что представляет собой компьютерная среда программы калькулятор?
а) набор кнопок цифрами и знаками математических действий .
б) набор кнопок (пиктограмм) буквами и знаками действий .
в) набор кнопок (пиктограмм) с буквами и цифрами .
г) набор кнопок (пиктограмм) инструментов для рисования .
// PascalABC.NET 3.0, сборка 1076
begin
var n:=ReadInteger('Введите количество элементов массива: ');
var a:=ArrRandom(n,1000,10000);
Write('Исходный массив: ',a,#13#10);
Write('Множество цифр из разряда сотен: ');
a.Select(x->(x mod 1000) div 100).Sorted.Distinct.Println(',')
end.
Тестовое решение:
Введите количество элементов массива: 8
Исходный массив: [9374,4420,8856,8274,7555,2461,8302,6325]
Множество цифр из разряда сотен: 2,3,4,5,8
2. "Школьный вариант"
// PascalABC.NET 3.0, сборка 1076
var
i,n:integer;
sd:set of 0..9;
a:array[1..50] of integer;
begin
Write('Введите количество элементов массива: '); Read(n);
Randomize;
Write('Исходный массив: ');
sd:=[];
for i:=1 to n do begin
a[i]:=Random(9001)+1000;
Write(a[i],' ');
Include(sd,(a[i] mod 1000) div 100)
end;
Writeln;
Write('Множество цифр из разряда сотен: ');
for i:=0 to 9 do
if i in sd then Write(i:2);
Writeln
end.
Тестовое решение:
Введите количество элементов массива: 8
Исходный массив: 5332 4215 7231 3399 6989 8904 7804 3517
Множество цифр из разряда сотен: 2 3 5 8 9
Program Markovsp1;
uses crt;
const
eps=0.001;
var
t,s:real;
i:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа вычисляет частичную сумму ряда ');
writeln(' S=1+1/(2^2)+1/(3^2)+1/(4^2)+... ');
writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
используется цикл repeat');
writeln();
s:=0;
i:=1;
repeat
t:=1/((i)*(i));
s:=s+t;
//writeln('i=',i,' T=',t:0:6,' S=',s:0:6);
i:=i+1;
until abs(t)<eps;
writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6);
writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6);
end.
Program Markovsp2;
uses crt;
const
eps=0.001;
var
t,s:real;
i:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа вычисляет частичную сумму ряда ');
writeln(' S=1+1/(2^2)+1/(3^2)+1/(4^2)+... ');
writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
используется цикл while');
writeln();
s:=0;
i:=1;
t:=1;
while t>eps do
begin
t:=1/(i*i);
s:=s+t;
//writeln('i=',i,' T=',t:0:6,' S=',s:0:6);
i:=i+1;
end;
writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6);
writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6);
end.