Задать вопрос!

Задать вопрос!

Все категории

Ольга Бодрягина

3 года назад

8

7345,75(10) 234,238(10)напишите число в развернутом виде

7345,75(10) 234,238(10)напишите число в развернутом виде

Информатика

1 ответ:

Mariya243 года назад

0 0

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

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

Напишите программу которая запрашивает значения двух переменных и выводит их разность. Приглашение к вводу каждого числа произве

ghjatccbyfk [82]

Uses crt;
var a,b:integer;
begin
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
if a>b then writeln(a-b,' первое число больше второго');
if a<b then writeln(b-a,' второе число больше первого');
if a=b then writeln('0 оба числа равны');
end.

0 0

4 года назад

Задан одномерный массив из n элементов.Определить, сколько элементов массива меньше, чем число 6.

Дима7272

Вот этот кусочек будет считать сколько элементов в массиве меньше 6.

x := 0;
for i := 1 to n do
begin
if m[i] < 6 then
inc(k);<span>
end;
writeln(k);
</span>

0 0

4 года назад

Кроссворд!!!!! перечисление всех существенных признаков объекта в связном предложении. 8 букв ,6-ая Н

Дмитрий Кустов Ал... [17]

Возможно - описание.

0 0

4 года назад

Скорость передачи данных через ADSL- соединение равна 512000 бит/сек .Передача файла через данное соединение заняла 8 секунд . О

kotofeeva [367]

512000 * 8 = 4096000
4096000 / 8000 = 512
Или можно так:
512000 * 8 / 8000 - 8 сокращаем и получаем:
512000 / 1000 = 512 кб

0 0

3 года назад

Дано натуральное число. определить сумму квадратов его цифр паскаль цмкл while

Ольга Половникова

var a,b,s: integer;
begin
readln(a);
while a>=10 do
begin
b:=a mod 10;
s:=s+sqr(b);
a:=a div 10;
end;
a:=a*a;
s:=s+a;
writeln(s);
readln;

end.
В s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!

0 0

1 год назад