Var
a, b: integer;
begin
write('введите a,b ');
readln(a, b);
if ((a + b) > 0) and ((a + b) mod 10 = 3) then
writeln((a + b) * 2)
else
writeln(a + b);
end.
Тест №1
введите a,b 10 3
26
Тест №2
введите a,b 5 6
11
Const n=4;
var
a:array[1..n,1..n] of integer;
b:array[1..n*n] of integer;
i,j,k,max,imax,c:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(51)-25;
write(a[i,j]:4);
end;
writeln;
end;
writeln('Полученный массив:');
k:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]>0 then
begin k:=k+1; b[k]:=a[i,j]; write(b[k]:4); end;
writeln;
max:=b[1]; imax:=1;
for i:=1 to k do
if b[i]>max then begin max:=b[i]; imax:=i; end;
writeln('max = b[',imax,'] = ',max);
for i:=imax to k-1 do b[i]:=b[i+1];
b[k]:=0;
writeln('Измененный массив:');
for i:=1 to k-1 do write(b[i]:4);
writeln;
c:=b[2]; b[2]:=b[k-1]; b[k-1]:=c;
writeln('Измененный массив:');
for i:=1 to k-1 do write(b[i]:4);
writeln;
end.
Пример:
Исходный массив:
-8 -1 3 5
22 25 -23 -17
13 3 18 -1
1 -19 13 0
Полученный массив:
3 5 22 25 13 3 18 1 13
max = b[4] = 25
Измененный массив:
3 5 22 13 3 18 1 13
Измененный массив:
3 13 22 13 3 18 1 5
Надо что бы при вводе данных выдавалась та или иная машина?
или же обеспечить базу данных на ввод машин и после чего их вывод?
При линейной структуре отдельные части учебного материала образуют непрерывную последовательность тесно связанных между собой звеньев, прорабатываемых за время обучения, как правило, только один раз (пригодна для изложения языков, истории, литературы, музыки и т.п.).
Концентрическая структура предполагает возвращение к изучаемому материалу. Один и тот же вопрос прорабатывается несколько раз, причем его содержание постепенно расширяется, обогащается новыми сведениями, связями и зависимостями (пригодна для изложения физики, химии, биологии и т.п.).
Var
p: integer;
begin
readln(p);
if p=5 then print('Молодец!')
else if p = 4 then print('Хорошо!')
else if p<=3 then print('<span>Лентяй!</span>')
end.
