// PascalABC.NET 3.3, сборка 1607 от 31.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var (b,a):=ReadInteger2('Введите границы промежутка:'); if a<b then Swap(a,b); var d:=b mod 4; if d<>0 then // первое число, кратное 4 if b<0 then b+=Abs(d) else b+=4-d; while b<=a do begin Print(b); b+=4 end; end.
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(); } } }
// Внимание! Если программа не работает, обновите версию!
begin
var (b,a):=ReadInteger2('Введите границы промежутка:');
if a<b then Swap(a,b);
var d:=b mod 4;
if d<>0 then // первое число, кратное 4
if b<0 then b+=Abs(d) else b+=4-d;
while b<=a do begin Print(b); b+=4 end;
end.
Примеры
Введите границы промежутка: 15 60
16 20 24 28 32 36 40 44 48 52 56 60
Введите границы промежутка: -15 13
-12 -8 -4 0 4 8 12
Введите границы промежутка: 1 19
4 8 12 16