Program gt;
var x,y,s:real;
n:longint;
begin
read(x,y);
read(n);
s:=n*y+x;
writeln(s);
end.
2)program gt;
var z,y:real;
n,h:longint;
begin
read(z,y);
{y-расстояние между столбами}
read(n);
h:=round((n*z/y));
if(h>(n*z/y))then h:=h-1;
writeln(h);
end.
Достоверность,обьективность,ценность,актуальность
program w7w7;
var a:real;
begin
readln (a);
if a<0 then writeln ('otritsatelnoe chislo');
if a>0 then writeln ('pologitelnoe chislo');
end.
Книги - текстовая информация
Картины - графическая информация
Игра на музыкальных инструментах - аудио информация
Вариант №4, там всего 2 еденицы
Примечание(объяснение) 15,25,29,33 дели на 2, каждый раз, и, ты выведешь двоичную запись из десятичной.!