program aaa; const n=50; var w, c, x, d10, d4, d1: integer; begin writeln ('Введите вес бандероли'); readln (w); if w <= n then c:=10 else if w mod n = 0 then c:=10+((w div n)-1)*5 else c:=10+5+((w div n)-1)*5;
d10:= c div 10; d4:= (c-10*d10) div 4; d1:= (c-d10*10-d4*4);
writeln ('стоимость бандероли: ',c,' драхм'); writeln; writeln ('для оплаты нужно не менее'); writeln (d10:10,' монет по 10 драхм'); writeln (d4:10,' монет по 4 драхмы'); writeln (d1:10,' монет по 1 драхме'); end.
Результат работы программы:
Введите вес бандероли 100
стоимость бандероли: 15 драхм
для оплаты нужно не менее 1 монет по 10 драхм 1 монет по 4 драхмы 1 монет по 1 драхме
Using System; using System.Collections.Generic; using System.Linq; using System.Text;
namespace ConsoleApplication5 { class Program { static void Main(string[] args) { int m, n; Console.WriteLine("Введите число m"); m = int.Parse(Console.ReadLine()); Console.WriteLine("Введите число m"); n = int.Parse(Console.ReadLine());
int[,] mass = new int[m, n];
int max = 0; for (int i = 0; i < m; i++) { for (int j = 0; j < n; j++) { Console.WriteLine("Введите (" + i + "; " + j + ")-ый элемент"); mass[i, j] = int.Parse(Console.ReadLine()); if (i == 0 && j == 0) max = mass[i, j]; else { if (mass[i, j] > max) max = mass[i, j]; } } }
Console.WriteLine("Maксимальный элемент равен " + max); Console.ReadKey(); } } }
program aaa;
const n=50;
var w, c, x, d10, d4, d1: integer;
begin
writeln ('Введите вес бандероли');
readln (w);
if w <= n
then c:=10
else
if w mod n = 0
then c:=10+((w div n)-1)*5
else c:=10+5+((w div n)-1)*5;
d10:= c div 10;
d4:= (c-10*d10) div 4;
d1:= (c-d10*10-d4*4);
writeln ('стоимость бандероли: ',c,' драхм');
writeln;
writeln ('для оплаты нужно не менее');
writeln (d10:10,' монет по 10 драхм');
writeln (d4:10,' монет по 4 драхмы');
writeln (d1:10,' монет по 1 драхме');
end.
Результат работы программы:
Введите вес бандероли 100
стоимость бандероли: 15 драхм
для оплаты нужно не менее
1 монет по 10 драхм
1 монет по 4 драхмы
1 монет по 1 драхме