Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var a,b,c : string;
begin
write('введите название 1 фигуры-');
readln (a);
write('введите название 2 фигуры-');
readln (b);
write('введите название 3 фигуры-');
readln (c);
writeln (' фигуры: ',a,b,c);
readln
end.
решение на
вроде бы 100*100=10000 бит=1250 байта
в одном байте восемь бит. следовательно 100/8=12.5 ответ 12.5
Популярные вопросы