4 года назад

Дано двузначное число .найти число десятков в нем

Знания

Информатика

1 ответ:

Ксения Юдина Серг... [115]4 года назад

0 0

Var a:integer;
begin
readln(a);
Write (a div 10);
end.

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

Найти среднее арифметическое всех элементов массива, которые делятся на 5

sidor33

const n=10;

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

i,s,k:integer;

begin

write('Массив: ');

for i:= 1 to n do

begin

a[i]:=random (16);

write (a[i],' ');

if a[i] mod 5 = 0 then

begin

s:=s+a[i];

k:=k+1

end

end;

writeln;

if k<>0 then writeln('Среднее арифметическое элементов массива, которые делятся на 5, равно: ',s/k:0:3)

else writeln ('Элементов массива, которые делятся на 5, нет.')

end.

0 0

4 года назад

Кто знает excel кто помочь может

ViktorOsetrov [10]

Ответ:

Выберите ячейку для формулы, введите "=" , дальше без пробелов введите адрес какой либо ячейки - для примера "B2", затем знак операции (например "+") и адрес другой ячейки (например "C2"). нажмите Enter и в ячейке вы увидите результат сложения значений ячеек "B2" и "C2". Подробнее в справке по формулам Excel.

0 0

4 года назад

Укажите алгоритмы устранения следующих ошибок:1) Установить курсор на место вставки.2) Нажать клавишу с нужным символом.Что это

Александра7777 [24]

1. Пропущенный символ 2. Неверный символ 3. Лишний символ

0 0

4 года назад

Сколько секунд вам понадобиться для того,чтобы скачать по сети фарш размером 50Мб,если скорость локальной сети 100 Мбит/с

Sonechka I

100Мбис/с=12.5Мб/с
50Мб:12.5Мб/с=4с

0 0

4 года назад

Pascal После очередного этапа чемпионата мира по кольцевым автогонкам на автомобилях с открытыми колесами Формула-А гонщики собр

Liza5000042 [14]

begin

var (n, m) := ReadlnInteger2;

var (sm, tm):= ('', integer.MaxValue);

for var i := 1 to n do

begin

var s := ReadlnString;

var t := ReadSeqInteger(m).Sum;

ReadlnString;

if t < tm then

(sm, tm) := (s, t)

end;

Write(sm)

end.

<u>Замечание.</u> Строки могут содержать любые символы., а не только латинские буквы.

0 0

3 года назад