Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Найти стоимость заданного количества ткани. Цена и количество вводятся с клавиатуры. ( Составьте программу Паскаль)
Язык программы Паскаль.

Ответ оставил Гость

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 рублей.