4 года назад

Даётся одно любое двухзначное число, необходимо вывести на экpан 2 числа из которых оно состоит (в программе паскаль)

Знания

Информатика

2 ответа:

Анжелика Милютина [4]4 года назад

0 0

A: integer;
begin
readln(a);
writeln(a - 1,' ',1);
end.

Сергей-инструктор [57]4 года назад

0 0

Program chisla;
uses crt;
var a,b,c : integer;
begin
write('Введите двузначное число: ');
Readln(a);
if (a>99) or (a<10) then Writeln('Введено не двузначное число') else
begin
b:=a div 10;
c:=a-(b*10);
Writeln(b,',',c);
end
end.

Читайте также

Составить программу для вычисления значений функции F(x)= cos x + tg x на отрезке [a;b] с шагом h . Результат представить в виде

АНЖЕЛИКА 16 ЛЕТ [7]

Var
a,b,h,x:real;
begin
Write('Начальное значение, конечное значение, шаг: ');
Read(a,b,h);
x:=a;
while x<=b do
 begin
 Writeln(x:7:4,cos(x)+tan(x):15:8);
 x:=x+h
 end
end.

Контрольное решение
Начальное значение, конечное значение, шаг: -3 3 0.25
-3.0000 -0.84744595
-2.7500 -0.51138448
-2.5000 -0.05412132
-2.2500 0.61045399
-2.0000 1.76889303
-1.7500 5.34213387
-1.5000 -14.03068275
-1.2500 -2.69424731
-1.0000 -1.01710542
-0.7500 -0.19990759
-0.5000 0.33128007
-0.2500 0.71357050
0.0000 1.00000000
0.2500 1.22425434
0.5000 1.42388505
0.7500 1.66328533
1.0000 2.09771003
1.2500 3.32489204
1.5000 14.17215715
1.7500 -5.69862598
2.0000 -2.60118670
2.2500 -1.86680124
2.5000 -1.54816591
2.7500 -1.33722027
3.0000 -1.13253904

0 0

4 года назад

Какой минимальный объём памяти (в Кбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размер

sergejbasargin [3]

Общий объем памяти I = K * i

(K - кол-во пикселей, i - объем памяти на 1 пиксель/цвет или глубина цвета)

По формуле $N = 2^i$ или $i = \lceil {\log_2{N}} \rceil$

(N - кол-во цветов в палитре, i - глубина цвета)

Глубина цвета $i = \lceil {\log_2{128}} \rceil = 7$ бит

Объем памяти K = 128 * 128 пикселей * 7 бит = 114688 бит

114688.0 бит = 14336.0 байт = 14.0 Кбайт = 0.013671875 Мбайт = 1.33514404296875e-05 Гбайт = 1.30385160446167e-08 Tбайт

0 0

4 года назад

Составить программу, которая формирует массив А из 85 случайных целых чисел, принадлежащих промежутку [4;14]. Параметром цикла я

zviadi

Sub cikl()
Dim A(85) As Integer
K = 85
For s = 1 To K
A(s) = Int(11 * Rnd() + 4)
Next s
End Sub

0 0

3 года назад

Написать программу на turbo pascal.1.Вычислить значение факториала n! (P=1*2*...*n*N)..N=122.Найти сумму элементов заданного мас

ЯТ [7]

1)
const
n=12;
var
i,p:integer;
begin
p:=1;
for i:=1 to n do
 p:=p*i;
writeln(P);
end.
2)
const
n=7;
varc:array[1..7]of integer;
i,s:integer;
begin
for i:=1 to n do
 begin
readln(c[i]);
s:=s+c[i];
 end;
writeln(s)
end.
3)
const
a=20.3;
var
x,y:real;
begin
readln(x);
 if x>1 then y:=ln(x+1)
else y:=sqr(cos(sqrt(abs(a*x))));
writeln(y);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Написать программу нахождения периметра параллелограмма по известным сторонам b и h (b и h — целые числа, вводимые с клавиатуры)

ghyu78 [28]

3)program perimetr;
var
b,h,p:integer;
begin
write('b=');
readln(b);
write('h=');
readln(h);
p:=2*(b+h);
writeln('p=',p);
readln;
end.

Пример:
b=5
h=4
p=18

0 0

4 года назад