1 гигабайт( Гб)= 1024 Мбайта или 210 КБайт
//Pascal ABC.NET v3.1 сборка 1172
var
n, m: integer;
begin
read(n, m);
repeat
writeln('Текущее значение N:', n, ' ,до m:', m - n);
inc(n);
until n = m;
writeln('Завершено, n=m');
end.
Пример ввода:
12
20
Пример вывода:
Текущее значение N:12 ,до m:8
Текущее значение N:13 ,до m:7
Текущее значение N:14 ,до m:6
Текущее значение N:15 ,до m:5
Текущее значение N:16 ,до m:4
Текущее значение N:17 ,до m:3
Текущее значение N:18 ,до m:2
Текущее значение N:19 ,до m:1
Завершено, n=m
Windows XP
Linux
<span>Mac OS
</span><span>Windows 2000</span>
<span>Число в пятеричной системе изображается пятью цифрами: 0, 1, 2, 3, 4.
304_5 = 79_10
</span>100002_5 = <span>3127_10
</span>253 ==> <span>Цифры 5 нет в 5-ричной системе счисления
</span>1118 ==> <span>Цифры 8 нет в 5-ричной системе счисления
300_5 = 75_10
4444_5 = </span><span>624_10 </span>
Program pr1;uses crt;var a:array[1..20] of integer; i,j,max,ind :integer;begin max:=a[ 1 ]; for i:=1 to 20 do begin writeln('Введите цену(макс 20 товаров)'); readln(a[i]) end; for i :=2 to 10 do begin if a [ i ] > max then begin max:=a [ i ] ind:=i; end end; writeln('максимальная цена тавара ',a[i],'р. И ег оиндекс в массиве=',ind)end.<span>
</span>
