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

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

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

4 года назад

6

Пожалуйста быстроооо надо

Пожалуйста быстроооо надо

Информатика

1 ответ:

vit19844 года назад

0 0

Ахметов так он выйшрал поезд

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

Запиши число 12487 в развёрнутом виде, начиная со старшего разряда.

chistaja

12487=10000+2000+400+80+7

0 0

4 года назад

Прочитать ещё 2 ответа

ПАСКАЛЬ 30 баллов Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне [ A , B ] и

ChaosGen

var m:array[1..100000] of integer;

a,b,sum,sum2,n,k,i:integer;

begin

sum:=0;

k:=0;

sum2:=0;

readln(a,b,n);

randomize;

for i:=1 to n do begin m[i]:=random(a,b); if(m[i]<50) then begin sum:=sum+m[i]; k:=k+1; end;

if(m[i]>=50) then sum2:=sum2+m[i]; end;

for i:=1 to n do write(m[i],' ');

writeln;

writeln((sum/k):5:3,' ',(sum2/(n-k):5:3));

end.

0 0

4 года назад

Что такое гиф ( сжатие данных )?

Uri-expert

Анимационное изображение

0 0

4 года назад

Сколько в 1 мегабайте байт?сколько в 1 килобайте бит?

ssmmirnova

1- 125000 байт

2-8000 бит

0 0

4 года назад

Дано четырехзначное число.Определить:кратно ли произведение его цифр числу а.

Раслан

Var
n,i,a:integer;
p:longint;
begin
Write('Введите четырехзначное число: '); Read(n);
Write('Введите число для проверки кратности: '); Read(a);
p:=1;
for i:=1 to 3 do
begin
p:=p*(n mod 10);
n:=n div 10
end;
p:=p*n;
if (p mod a)=0 then Writeln('Число кратно ',a)
else Writeln('Число не кратно ',a)
end.

<em><u>Тестовое решение:</u></em>
Введите четырехзначное число: 3673
Введите число для проверки кратности: 7
Число кратно 7

0 0

3 года назад