Var
a: real;
begin
while a <= 1000 do
begin
writeln('Введите сумму покупки > 1000р');
readln(a);
if a > 1000 then break
else writeln('Ошибка! Введенная сумма покупки <= 1000p');
end;
writeln('Стоимость покупки с учетом скидки 10%: ', a * 0.9);
end.
Данная программа проверяет, больше 1000 или нет, введенная стоимость покупки. Можно сделать проще без проверки:
var
a: real;
begin
writeln('Введите сумму покупки > 1000р');
readln(a);
writeln('Стоимость покупки с учетом скидки 10%: ', a * 0.9);
end.
Может я не заметил, но вроде отсутствует переменная "creditum"
Var
a,b : array[1..8, 1..8]of integer;
i, j,k, x, y, x1, y1:integer;
begin
k:=-1;
for i:= 1 to 8 do
begin
k:=-k;
for j:= 1 to 8 do
begin
a[i,j]:=k;
b[i,j]:=k;
k:= -k;
end;
end;
Readln(x,y);
Readln(x1,y1);
if (a[x,y] = b[x1,y1]) then Writeln('YES')
else Writeln('NO');
end.
Если считать, что скорость передачи данных в канале связи постоянна, то соотношение между временем передачи неупакованного и упакованного файла будет равно соотношению размеров передаваемых файлов.
Передача упакованного файла происходит за 20-10=10 секунд (мы вычли время на упаковку и распаковку). А передача неупакованного происходит за 1 минуту 20 с, т.е. за 1 х 60 + 20 = 80 секунд.
80 / 10 = 8. Неупакованный файл передается медленнее в 8 раз, следовательно, он в 8 раз больше, чем упакованный.
Тогда упакованный файл имеет размер 24 МБ / 8 = 3 МБ
<u><em>Ответ:</em></u> 3 МБ
Uses crt;
const n=12;
var m:array[1..n] of integer;
k,s,i:integer;
begin
randomize;
for i:=1 to n do
begin
m[i]:=random(9)+1;
writeln(m[i]);
if m[i] mod 2<>0 then begin inc(k); s:=s+m[i]; end;
end;
writeln;
writeln(k);
writeln(s);
end.
