Отыскать цена данного количества ткани. Стоимость и количество вводятся с клавиатуры.
Отыскать цена данного количества ткани. Стоимость и количество вводятся с клавиатуры. ( Составьте программку Паскаль)
Язык программки Паскаль.
1 ответ
Валентина Гандрабура
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 (2lt;=c) and (clt;=4) then
begin
writeln('Это будет стоить',' ',c,' ',y);
end;
if (5 lt;= c) and(c lt;= 1000000) then
begin
writeln('Это будет стоить',' ',c,' ',z);
end;
end.
В зависимости от результата программа будет выводить разное окончание.
1 рубль;
3 рубля;
100 рублей.
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 (2lt;=c) and (clt;=4) then
begin
writeln('Это будет стоить',' ',c,' ',y);
end;
if (5 lt;= c) and(c lt;= 1000000) then
begin
writeln('Это будет стоить',' ',c,' ',z);
end;
end.
В зависимости от результата программа будет выводить разное окончание.
1 рубль;
3 рубля;
100 рублей.
Гребешункова
Ольга
Спасибо для тебя ^^ Большое спасибо за ответ
Аделина Зелинскаяа
Спасибо для тебя ^^ Огромное спасибо за ответ
Евгения Негина
Спасибо для тебя ^^ Большое спасибо за ответ
Геннадий Хильманович
Спасибо для тебя ^^ Огромное спасибо за ответ
Юрка Табулов
Спасибо для тебя ^^ Большое спасибо за ответ
Арсений
Спасибо тебе ^^ Большое спасибо за ответ
Данька Рыканов
Спасибо для тебя ^^ Огромное спасибо за ответ
Amelija Stojkovich
Спасибо для тебя ^^ Огромное спасибо за ответ
Таисия Арехметова
Спасибо для тебя ^^ Огромное спасибо за ответ
Эльвира Саетгалиева
Спасибо тебе ^^ Большое спасибо за ответ
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов