Как вывести рандомные числа от 1 до 100 которые делятся на 5. зделать на паскале

var a : integer;

begin randomize;

a:=(1 + random(20))*5;

writeln(a);

end.

Объяснение:

randomize для того, чтобы каждый раз получился новое число.

1-шаг. 0 ≤ random(20) ≤ 19

2-шаг. 1 ≤ 1 + random(20) ≤ 20

3-шаг. 5 ≤ (1 + random(20))*5 ≤ 100

(1 + random(20))*5 всегда делится на 5

Не совсем чётко сформулировано задание. Но попробую хоть в чём-то хотя можно ответить только на вопрос  типа "Сравнить размеры этих файлов".

Во втором файле по сравнению с первым

стерео *2

16 бит *2

48000  *6    (после * указываю во сколько раз больше, чем в 1 случае)

Таким образом, объём второго файла будет в 2*2*6=24раза больше, чем первого.

Ну где-то так...

Да, примерный объём первого файла за 10сек оценивается просто

10*1*8000=80 000 байт = 78Кбайт

Ну а второго

80000*24=1920000байт = 1875Кб=1.8М

а я разве их не решал

но ладнооо

1)

Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);

i:=1;
repeat

val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;

until i=length(stroka);
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
if x=10 then writeln('TRUE')
else writeln('ELSE');
end.

2 я не знаю как решать

3)

Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
writeln(x);
end.

 4)

Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka)-1 do
for k:=1 to length(stroka)-i do if mas[k]=mas[k+1] then x:=x+1;
if x>0 then writeln('TRUE')
else writeln('FALSE');
end.