Написать программу!!!! найти все двузначные числа, у которых цифра десятков равна 5

Знания

Информатика

1 ответ:

Вит Вит [38]4 года назад

0 0

var i:integer;
begin
for i:=10 to 99 do if i div 10=5 then write(i,' ');
end.

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

Дан массив из 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 года назад

Сведения команды из окружающего мира

Лилия Скивка [14]

Информацией,команды из окружающего мира называются информацией,

0 0

1 год назад

1.Умножить на 42.вычти bПрограмма:21122Из числа 4-28Найти b

Taras 28022004 [2]

Ответ: число 2.

Объяснение: (4 - 2) * 4 * 4 - 2 - 2 = 28

0 0

3 года назад

Составьте программу вычисления значения y: на паскале

KyouJet [7]

//Pascal
var
x, y: real;
begin
write('x = '); readln(x);
if x > 100 then
    y := 5 * x + 6
else
if ((x >= 10) and (x <= 100)) then
    y := 200 * x
else
if x < 10 then
    y := x / 2;
writeln('y = ', y);
end.

0 0

3 года назад

Дан массив вещественных чисел. Вывести на экран новое состояние массива , в котором все элементы с нечётными номерами заменить н

Anna67

Uses crt;
const max=100;
var a: array [1..max] of real;
i,n:integer;
begin
clrscr;
write('Zadajte razmernost massiva');
readln(n);
writeln('Ishodnij massiv:');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:7:2);
end;
writeln;
writeln('Novij massiv:');
for i:=1 to n do
begin
if (i mod 2)<>0 then
a[i]:=sqrt(a[i]);
write(a[i]:7:2);
end;<span>
end.</span>

0 0

4 года назад