сервис вопросов и ответовспставьте программу на языке Pascal: Для ремонта кабинета шириной а метров, длиной b метров, высотой h метров необходимо купить в магазине
1-4 класс|
|
обоев. Площадь окон и дверей не учитывать. Известна стоимость одного рулона (86 рублей) обоев длиной 12 м и шириной 0,6 м. Составьте программу определяющую, какая сумма необходима для покупки обоев.
Alpechenka
23 авг. 2013 г., 6:54:50 (10 лет назад)
Kazz
23 авг. 2013 г., 8:30:15 (10 лет назад)
program olraisinsss;
const n=86; z=12; c=0.6;
var a,b,h,p1,sum:integer;
p2:real;
begin
write('a=');read(a);
write('b=');read(b);
write('h=');read(h);
p1:=4*(b+h)+4*(a+h);
while p2<p1 do begin
p2:=p2+2*(z+c);
sum:=sum+1;
end;
writeln('Price=',sum*n);
end.
Ответить
Другие вопросы из категории
людмила защищает свои пароли так:двигаясь от краев пароля к центру, она меняет местами каждую вторую пару символов. Например пароль pas sword превращается
в prsws oad. Один из её защищённых паролей выглядит как ввт чоррсу. выберите исходный пароль
А)прочту ева вот
Б)встреча во рву
В)вот почту несу
Г)вст рва чоерву
Пожалуйста помогите!
1 вопрос. Опишите рабочий стол компьютера. Перечислите его основные элементы.
2 вопрос. С помощью чего обеспечивается быстрый доступ к различным устройствам и программам компьютера?
3 вопрос. Какие значки всегда присутствуют на Рабочем столе? Для чего они предназначены?
Читайте также
2)Дан фрагмент программы на языке паскаль, на вход которого поданы значения N=10 и M=2. Чему будет равно на выходе из фрагмента значение SUM?
SUM:=0; K :=M-1;
while K<N do
begin
for I(ай) := K-M+2 to K do SUM:=SUM+I;
K:=K+M;
end;
for I:=K-M+2 to N-1 do SUM:=SUM+I;
3)Программист Авсилий Кардов недавно получил банковскую карточку. Чтобы не забыть пароль к карточке, Василий решил построить его по алгоритму, а именно: пароль равен количеству чисел от 1 до 10000, не делящихся на 13 и 17. Чему равен пароль Васи?
4) Какой набор символов будет выведен в результате работы следующей программы?
function f(x:string; a:byte) :string;
begin
if a<=3 then
f:=copy(x, l, a)
else
f:=f(copy (x, 2, a), a-2;
end;
begin
writeln(f('abcdefghijklm',7));
end.
Где хранится информация? _____________________________________ Какие носители информации используются для хранения информации в компьютере?
_________________________________________ Какое устройство и программу должен иметь компьютер для создания электронного документа? Устройство: _______________________________________________ Программу: _______________________________________________
Информатика 4 класс
1) какое устройство преобразует информацию
2) какие носители информации используются для хранения информации в компьютере
3) какие устройство и программу должен иметь компьютер для создания рисунка
Вы находитесь на странице вопроса "спставьте программу на языке Pascal: Для ремонта кабинета шириной а метров, длиной b метров, высотой h метров необходимо купить в магазине", категории "информатика". Данный вопрос относится к разделу "1-4" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.