4 года назад

Пусть дано натуральное число n, состоящее из шести цифр. Определите число сотен и тысяч в нем.

Знания

Информатика

1 ответ:

yanaassia [23]4 года назад

0 0

Var n:string;
begin
readln(n);
writeln('Число сотен: ',n[4]);
writeln('Число тысяч: ',n[3]);
<span>end.</span>

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

1000KiB- сколько это? А)1MiB Б)1024000байт В)1000000байт Г)1 мегабайт

Eroino [237]

1000 кб=1*10³кб=1024000байт
ответ б

0 0

3 года назад

Написать формулу используя логическую функцию ЕСЛИ

nata2015

Ответ:

Var

y,x: integer;

begin

writeln('Ведите ваше число:');

read(x) ;

if x > 2 then

writeln('Результат y =: ', x+3)

Else

if x <=- 2 then

writeln('Результат y =: ', 1 div x);

Readln ;

end.

0 0

4 года назад

В школе действует три кружка: "Шахматы", "Шашки", "Танцы". В первом− 3 участника, во втором − 2, а в третьем − 3. Изобразите инф

honsol kim [2]

Школьные кружки - отводим 3 стрелки

1 стрелка - Шахматы

2 стрелка - Шашки

3 стрелка - Танцы

От этих 3 стрелок отводим другие стрелки

От Шахмат Отводим 3 стрелки, которые номеруем от 1 до 3

От шашек отводим 2 стелки и нумеруем от 1 до 2

От Танцев нумеруем от 1 до 3

0 0

4 года назад

Составте программу позволяющую подсчитать в массиве число положительных и нулевых элементов

Марк Тимошенко

Program rok;

var a:array [1..30] of integer;

i,s,n:integer;

begin

s:=0;

n:=0;

randomize;

for i:=1 to 30 do begin

a[i]:=random (25)-10;

write(a[i],' ');

end;

writeln;

for i:=1 to 20 do begin

if (a[i]>0) then s:=s+1;

if (a[i]=0) then n:=n+1;

end;

writeln ('Количество положительных чисел=',s);

writeln ('Количество нулей=',n);

end.

0 0

4 года назад

Дан массив из 8 элементов 4:-2:-4:0:2:3:1:5 найти позицию элемента равного двум

СергейОрловский

Массив заполнен сразу

const a: array[1..8] of integer=(4,-2,-4,0,2,3,1,5);
var i:integer;
begin
for i:=1 to 8 do
if a[i]=2 then writeln('Pozitciya elementa ravnogo 2 = ',i);
end.

Массив заполняется с клавиаутры

var
a: array[1..8] of integer;
i:integer;
begin
for i:=1 to 8 do
readln(a[i]);
for i:=1 to 8 do
if a[i]=2 then writeln('Pozitciya elementa ravnogo 2 = ',i);
end.

0 0

4 года назад