1)
var a:array [1..100] of integer;
n,i:integer;
begin
for i:=10 to 99 do begin
a[i]:=i;
if (a[i] mod n=0) then writeln(a[i]);
end;
end.
2)
var a:array [1..100] of integer;
n,k,i,x,y,z: integer;
begin
readln(n,k);
for i:=n to k do begin
a[i]:=i;
x:=a[i] mod 10;
y:=a[i] div 10;
z:=y mod 10;
y:=y div 10;
if (x=y) or (x=z) or (y=z) then writeln(a[i]);
end;
end.
3)
var a,n,an,na: integer;
begin
readln(a,n);
if (a>0) and (b>0) then begin
an:=a*10+n;
na:=n*10+a else writeln('Введены неверные числа!');
end;
end.
A=10 S=0+10=10 вывод 10
A =7 S=10+7=17 вывод 7
A =4 S=17+4 =21 вывод 4
A= 1 S=21+1 =22 вывод 1
A=-2 вывод 22
1) Узнаем сколько фото:
600 Мбайт = 600 000 Кбайт.
600 000 / 500 = 1 200 (фото)
2) Узнаем сколько нужно времени:
1 фото = 6 (сек).
1 200 * 6 = 7 200 (сек) = 120 (мин) = 2 (ч)
Ответ: 2 часа.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
var c, w: integer;
procedure check;
begin
var (a, b) := (Random(0, 20), Random(0, 20));
Print($'{a}*{b}=');
if a * b = ReadInteger then begin inc(c); Println('Правильно') end
else begin inc(w); Println('Неправильно') end;
end;
procedure res;
begin
Println($'Задано вопросов {c+w}');
Println($'Правильных {c}({(c*100)/(c+w):f1}%)');
Println($'Неправильных {w}({(w*100)/(c+w):f1}%)');
end;
begin
var start := true;
while start do
begin
Println('Проверим?(0/1)');
if ReadInteger = 0 then
begin start := false; res; end
else check;
end;
end.
Пример в приложении.
//PascalABC
var
N : integer;
begin
write('Введите число > ');
readln(N);
write('Получите модуль числа > ', abs(N));
end.