Var
d: integer;
begin
read(d);
writeln(24*d,' часов = ',60*24*d,' минут = ',60*60*24*d, ' секунд');
end.
Program zhn;
type atype = array of Integer;
var
n,i:integer;
a:atype;
begin
write('Введите количество элементов в массиве: ');
readln(n);
SetLength(a,n);
for i:=0 to n-1 do begin
a[i]:=random(100);
if i mod 2 = 0 then writeln(i,') ',a[i]);
end;
end.
//Pascal ABC.NET v3.0 сборка 1111
var
a,k,s:integer;
begin
readln(k); //вводим k
a:=0;
s:=0;
while a>=0 do //пока а >=0
begin;
if a>k then s:=s+a; //если a>k, тогда добавляем к s
readln(a); //каждый раз вводим в a
end;
writeln(s); //выводим s
<span>end.
Пример ввода:
45
34
56
67
<span>-2
Пример вывода:
123</span></span>
1. (51+40+22)-((32+11+8)-6)=68, остаются 2, которые ходят пить пиво вместо занятий!))
насчет второго, да... 30.
Нужно только загрузить в Фотошоп и сделать векторизацию!