1)
var a:integer;
begin
for a:=1 to 5 do
write(a,' ');
end.
2)
var a:integer;
begin
for a:=5 downto 1 do
write(a,' ');
end.
Это все ответы для Интернет урока за 8 класс Информатика.
Var a,b,c:real;
begin
write('Катет и гипотенуза:');
readln(a,c);
b:=sqrt(abs(c*c-a*a));
writeln('b = ',b);
end.
Пример:
Катет и гипотенуза:3 5
b = 4
Очень просто! То, что требуется найти в задаче, то есть количество би первоначального сообщения обозначим за x 1. Тогда несложно составить уравнение. Использована формула перевода из 16-битной в 8-битную.
16*x=8*x+16*8 (плюс, потому что объем первоначального уменьшился, а полученного увеличился)
Из полученного уравнения находим х
х = 16
Вот и все, можно записать ответ:
Ответ: 16 бит
Var
k: integer;
a, s: real;
begin
write('Начальная стоимость: ');
readln(a);
write('Число проданных газет: ');
readln(k);
if k <= 50 then s := k * a
else
begin
s := 50 * a;
s := s + (k - 50) * a * 1.2;
end;
writeln('Выручка составила ', s, ' руб.');
end.