//PascalABC
7)а) if (x > y) then z := x + y
else z := y - x;
б)при x = 5 и y = -6 (x > y)
z = x + y = -1
8) if (num1 < num2) then num1 := num1 + num2
else num1 := num1 - num2;
Судя по тексту программы, она выдаст тебе сумму всех чисел, которые меньше 9.
Сумма будет равна 19.
Ответ: размер файла 26,25 Мбайт
Объяснение:
512 Кбит = 512 / 8 = 64 Кбайт
7 мин = 7 * 60 = 420 сек.
64 Кбайт * 420 сек = 26880 Кбайт
26880 Кбайт = 26880 / 1024 = 26,25 Мбайт
Var k,k1,k2,kn,n,s:integer;
begin
write('k = ');
readln(k);
k1:=100;
k2:=100;
s:=k1+k2;
if k<=k1 then n:=1 else n:=2;
while s<k do
begin
n:=n+1;
kn:=k1+k2;
s:=s+kn;
k1:=k2;
k2:=kn;
end;
writeln('n = ',n);
end.
Пример:
<span>k = 1100
n = 5</span>
Var
choose:char;
x: real;
begin
writeln('Переводить в радианы(Р) или в градусы(Г)?');
readln(choose);
if choose = 'Р' then
begin
write('Введите градусы: ');
readln(x);
writeln('Радианы: ', x*0.017);
end
else
if choose = 'Г' then
begin
write('Введите радианы: ');
readln(x);
writeln('Градусы: ', x*57,3);
end
else
writeln('Переводить можно ТОЛЬКО в радианы(Р) или градусы(Г)!');
end.