Перевести с Паскаля на Си - C (СИ) (148454)

Формулировка задачи:

program zad1; 
uses crt; 
var b,p,a,a2,b2:real; 
begin 
write('цена товара a= '); 
read(a); 
write('цена товара b= '); 
read(b); 
write('p= '); 
read(p); 
a2:=a/100*p+a; 
b2:=b/100*p+b; 
writeln ('Старая цена товара a= ',a); 
writeln ('Старая цена товара b= ',b); 
writeln ('Новая цена товара a= ',a2); 
writeln ('Новая цена товара b= ',b2); 
end.

program zad2; 
uses crt; 
var n,k,p,s:real; 
begin 
writeln ('Введите количество простыней: '); 
read (k); 
k:=k*500; 
writeln ('Введите количество пододеяльников: '); 
read (p); 
p:=p*650; 
writeln ('Введите количество скатертей: '); 
read (s); 
s:=s*600; 
n:=(((k+p+s)/4000)*250)/750; 
writeln ('Количество пачек израсходовано: ',n:2:2); 
end.

Решение задачи: «Перевести с Паскаля на Си»

Листинг программы

#include <stdio.h>
 
int main()
{
    float n, k, p, s;
    printf("Введите количество простыней: ");
    scanf("%f", &k);
    k*=500;
    
    printf("Введите количество пододеяльников: ");
    scanf("%f", &p);
    p*=650;
    
    printf("'Введите количество скатертей: ");
    scanf("%f", &s);
    s*=600;
    
    n=(((k+p+s)/4000)*250)/750;
    
    printf("\nКоличество пачек израсходовано: %f\n", n);
    
    return 0;
}

Объяснение кода листинга программы

Включаем файл для работы с выводом в консоль
Объявляем переменные k, p, s типа float для хранения количества простыней, пододеяльников и скатертей соответственно
Выводим сообщение Введите количество простыней: и считываем значение переменной k с помощью функции scanf, указывая адрес переменной k с использованием оператора &
Умножаем значение переменной k на 500
Выводим сообщение Введите количество пододеяльников: и считываем значение переменной p с помощью функции scanf, указывая адрес переменной p с использованием оператора &
Умножаем значение переменной p на 650
Выводим сообщение Введите количество скатертей: и считываем значение переменной s с помощью функции scanf, указывая адрес переменной s с использованием оператора &
Умножаем значение переменной s на 600
Вычисляем значение переменной n как среднее арифметическое k, p и s, умноженное на 250 и деленное на 750
Выводим сообщение Количество пачек израсходовано: %f\n с значением переменной n
Завершаем функцию main и программу в целом, возвращая 0