1. Носитель - бумага, форма исполнения текстовая.
2. Носитель - металл, форма исполнения графическая.
3. Билет на самолет - внешняя память компьютера, форма - цифровая
4. Газета - бумага, форма исполнения графическая
5. Кинофильм - кинопленка или файл. Форма графическая или цифровая.
Ответ Г - выполняется только тогда, когда результатом выполнения команды проверки условия является истина.
program av;
var a,b,c,d,e,f:integer;
begin
writeln('введите числа ');
readln(a,b,c,d);
if (b<0) and (d<0)
then begin e:=b*d; writeln(e); end;
if (a>10) and (c>10)
then writeln(a,'0 ',b,'0 ',c,'0 ',d'0 ');
if (b<0) and (d<0) and (a>10) and (c>10)
then writeln(a,' ',b,' ',c,' ',d,' ')
else begin
a:=a/10;
b:=b/10;
c:=c/10;
d:=d/10;
writeln (a,' ',b,' ',c,' ',d,' ');
end;
end.
Если знаешь только стандартную(10тичную) таблицы умножения-сложения, то работай через неё
10h=16
10(8)=8
10b=2
Поэтому выражение равно 16+8*2=32=2^5=10 0000b
Var a: array [1 .. 10] of integer;
i, Count, C, tmpLast, tmpFirst: integer;
begin
write('Введите число C: ');
readln(C);
writeln;
for i := 1 to 10 do
begin
write('a[', i, '] = ');
readln(a[i]);
if a[i] = C then
begin
Count := Count + 1;
tmpLast := i;
end;
end;
writeln;
if (Count = 0) then writeln('В массиве нет числа равное С')
else
begin
writeln('В массиве нашлось число, равное С');
if (Count = 1) then
writeln('Первое и единственное число в позиции a[', tmpLast, ']')
else
begin
i := 0;
repeat
i := i + 1;
tmpFirst := i;
until (a[i] = C);
writeln('Первое такое число a[', tmpFirst, ']');
writeln('Последнее такое число a[', tmpLast, ']');
end;
end;
readln;
end.
