Практикум по программированию. Основы. Ввод и вывод. Покупки

Ввод и вывод

Java

import java.util.Scanner;

public class Task07 {

    public static void main(String[] args) {
        
        Scanner in = new Scanner(System.in);
        
	System.out.println();
        System.out.println(" Расчет количества единиц товара и сдачи");
        System.out.println("-----------------------------------------");

        System.out.print(" Введите сумму денег у покупателя: "); 
	double sum = in.nextDouble();

        System.out.print(" Введите стоимость одной единицы товара: "); 
	double st = in.nextDouble();

        System.out.println("-----------------------------------------");
                            
	int n = (int) (sum / st);
	double sd = sum - n * st;

        System.out.printf(" Покупатель может купить %d единиц товара\n", n);
        System.out.printf(" Сдача: %.2f руб.\n", sd);
    }
}

C++

#include <iostream.h>
#include <conio.h>
#include <stdio.h>
#include <math.h>

void main(void) {

    double sum, st;

    cout << "\n Расчет количества единиц товара и сдачи\n";
    cout << "-----------------------------------------\n";

    cout << " Введите сумму денег у покупателя: ";
    cin >> sum;

    cout << " Введите стоимость одной единицы товара: ";
    cin >> st;

    cout << "-----------------------------------------\n";

    int n = sum / st;
    double sd = sum - n * st;

    printf(" Покупатель может купить %d единиц товара\n", n);
    printf(" Сдача: %.2f руб.\n", sd);

    getch();
}

Pascal

program Task07;
    var
        n: integer;
        sum, st, sd: real;
begin
    writeln;
    writeln(' Расчет количества единиц товара и сдачи');
    writeln('-----------------------------------------');

    write(' Введите сумму денег у покупателя: ');
    readln(sum);

    write(' Введите стоимость одной единицы товара: ');
    readln(st);

    writeln('-----------------------------------------');

    n := trunc(sum / st);
    sd := sum - n * st;

    writeln(' Покупатель может купить ', n, ' единиц товара');
    writeln(' Сдача: ', sd:0:2, ' руб.');

    readln;
end.

---

Ввод и вывод