Var a,b,c: integer; x,y,z:string; begin x:='рубль'; y:='рубля'; z:='рублей'; writeln('Сколько стоит метр ткани?(в рублях)'); readln(a); writeln('Сколько вы хотите купить ткани?(в метрах квадратных)'); readln(b); c:=a*b; if c=1 then begin writeln('Это будет стоить',' ',c,' ',x); end; if (2<=c) and (c<=4) then begin writeln('Это будет стоить',' ',c,' ',y); end; if (5 <= c) and(c <= 1000000) then begin writeln('Это будет стоить',' ',c,' ',z); end; end.
В зависимости от результата программа будет выводить разное окончание. 1 рубль; 3 рубля; 100 рублей.
A,b,c - стороны прямоугольного треугольника; d - радиус описанной окружности около прям. треуг. e - длинна окружности описанной около прямоуг. треугольника;
var a,b,c,d,e:Real; begin writeln ('Введите (через пробел) 2 катета прямоугольного треугольника: '); readln (a,b); //вводим 2 катета c:=SQRT((a*a)+(b*b)); //находим 3 сторону (гипотенузу) d:=0.5*c; //радиус описанной окружности около прям. треуг e:=2*3.14*d; //теперь находим длину окружности описанной около прям. треуг. writeln ('Длина окружности описанной около прямоугольного треугольника = ',e); end.
P.S. то что после // - это комментарий (в паскале он будет выделен другим цветом), это для того что бы было понятно, что сейчас делаем, если комментарии не нужны - их можно удалить, на правильность работы программы это никак не повлияет
клавиатура, мышь, сканер, микрофон, камера;
Устройства вывода:
монитор, проектор, принтер, колонки, наушники