Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
i,n: integer;
begin
readln(n);
for i: =1 to n-1 do write(i*i: 5);
end.
аборигеном
2)
var a,b,c: integer;
read(a,b,c);
writeln('3 - ',100-a-b-c);
3) много писанины. вообщем длина стороны считается d: =sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))
площадь находится по формуле герона
4)var a: integer;
read(a);
writeln('plowad grani = ',a*a);
writeln('plowad polnoj pov= ',a*a*6);
writeln('objem= ',a*a*a);
var s: string; begin writeln('как вас зовут? '); readln(s); case s of 'вася': s: ='василий'; 'петя': s: ='петр'; 'люся': s: ='людмила'; 'миха': s: ='михаил'; 'пупс': s: ='пупондий'; else s: ='я с вами не знакома'; end; writeln(s); readkey; end.
Популярные вопросы