М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
said97
said97
23.07.2022 20:17 •  Информатика

Дана стоимость 1 кг конфет (ввод с клавиатуры), вывести стоимость 0.2, 0.4, 0.6, 2.4 кг

👇
Ответ:
Ghannik08
Ghannik08
23.07.2022

var
n:real;
i:1..24;
begin
write('Vvedite senu za 1 kg = ');
readln(n);
for i:=2 to 24 do
if (i mod 2 = 0) then writeln('Ves=',i/10:0:1,' kg sena=',n*i/10:1:1);
end.

4,4(86 оценок)
Ответ:
Natashazzz
Natashazzz
23.07.2022

var

  price:real;

  i:byte;

begin

  write('Введите стоимость 1 кг конфет ');

  readln(price);

  for i := 1 to 12 do

    writeln('Стоимость ', i / 5 :3:1, ' кг конфет состаляет ', i * price / 5:0:2, ' руб.');

end.

4,6(57 оценок)
Открыть все ответы
Ответ:
milenkoInyashno
milenkoInyashno
23.07.2022
Не совсем если честно понятно было но вот:
uses crt;
var y :real;     
S,price1,price2,price3:integer;     
x1,x2,x3:integer;     
k,i:real;
begin       
x1 := 1; x2:= 2; x3 := 3;
writeln('Среднее арифм. x1,x2,x3 = ', (x1/x2/x3)/3);
k := 15.24; k := k - 1/2;
writeln('Уменьшили значение  k 15.24 на 1/2');       
i := 15.24; i := i + 1/2;
writeln('Увеличили значение  i 15.24 на 1/2');               
price1:=150; // 1 галстук.       
price2:=250; // 1 блузка       
price3 := 550; // 1 брюки               
writeln('Пять брюк будут стоить: ', price3*5);       
writeln('Пять галстуков будут стоить: ', price1*5);       
writeln('Пять блузок будут стоить: ', price2*5);                       
{             
ответы на вопросы:              
a) 1 - раздел модулей, 2 - раздел объявления типов и переменных, 3 - тело программы.             
б) 1200 - целое число, тип integer, 1200.78 - вещественный тип real       
}       
 end.
4,5(11 оценок)
Ответ:
KatkatamailRu
KatkatamailRu
23.07.2022
Ученые сходятся во мнении, что заслуга изобретения книгопечатания должна быть закреплена за Гутенбергом. 
Человек по имени Ганс Генсфлейш, или Иоганн Гутенберг (1394/1399-1468), родился в последние годы XIV века в крупном немецком городе Майнце. К 1440 г. относятся его первые типографские опыты. По-видимому, это были: грамматика латинского языка Элия Доната, астрологический календарь, папские индульгенции. Вскоре, он принялся за подготовку к печати полной Библии на латинском языке. 
В 1450-1455 гг. , как считают, Гутенберг напечатал свою первую Библию.
4,8(11 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ