Вывести 1-ую цифру любого числа. (На языке Pascal)

Знания

Информатика

2 ответа:

ДТГ3 года назад

0 0

PasocialOkss0111055001

helenroskun [464]3 года назад

0 0

Program chislo;
Var a,s:integer;
Begin
Write (a);
Read (a);
s:=a div 10; для двузначного
s:=a div 100; для трехзначного
Writeln ('Первая цифра числа ',s);
End.

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

Составить подпрограмму нахождения большего из трех чисел и применить в основной программе

Эрнест12345 [14]

Function Max(a,b,c:integer):integer;
Begin
if b > a then a:=b;
if c > a then a:=c;
result:=a;
End;

Var
a,b,c:integer;
Begin
Write('Введите три числа: ');ReadLn(a,b,c);
Write('Max = ',Max(a,b,c))
End.

0 0

4 года назад

Помогите с информатикой!

daria91

Пойдем вечером в цирк, Вера

0 0

4 года назад

Составить программу, формирующую массив из 16 случайных чисел от -20 до 20 и определяющую сколько элементов массива задано икс.

Lenvlaskin [7]

..........................

0 0

1 год назад

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ 12 ВАРИАНТсрочно

Наденька07

//PascalABC.NET 3.2 сборка 1318

Var
ar:array of integer;
i,n,min,k:integer;
begin
readln(n);
setlength(ar,n);
min:=integer.MaxValue;
for i:=0 to n-1 do
begin
readln(ar[i]);
if min>ar[i] then min:=ar[i];
end;
for i:=0 to n-1 do
if ar[i]=min then inc(k);
writeln(k);
end.

Пример ввода:
3
1
2
1
Пример вывода:
2

0 0

4 года назад

Файл имеет объем 150 kb. Сколько раз его можно записать на диск объемом 1,44 mb?

neklyudov59

Ответ:

9,6 или 9

Объяснение:

150кб это 0,15

от сюда 1,44:0,15=9,6

0 0

4 года назад