Ответ:
А. информатика
В. стилистика
С. практика
Объяснение:
А.
фи -> иф -> инф
ро -> ор
китай -> йатик -> матик
а
В.
си -> сти
листок -> листик
а
С.
каре -> ерак -> прак
т
И к А
Если предмет на рисунке перевернут, то его название читают справа налево.
Если возле рисунка изображена буква вместе со знаком сложения, то необходимо эту букву вставить в название изображенного предмета.
Если возле рисунка изображена цифра, знак равенства и буква, это означает, что букву с указанным порядковым номером необходимо заменить на указанную в равенстве.
Если буквы движутся одна к другой, то при чтении используется предлог к (перед или между названий).
1)
Var i,a,b:longint;
Begin
read(a,b);
for i:=a to b do
if (i mod 3=0) then write(i,' ');
writeln;
End.
2)
Var i:longint;
Begin
for i:=10 to 99 do
if (abs(i mod 10 - i div 10)<=1) then write(i,' ');
writeln;
End.
3)
Var i,s,f,t:longint;
Begin
for i:=100 to 999 do
begin
f:=i div 100;
s:=i div 10 mod 10;
t:=i mod 10;
if (f=s) or (f=t) or (s=t) then write(i,' ');
end;
writeln;
End.
Это очень легко.Ну во первых у тебя должна быть презентация к проекту.Во вторых должен быть текст который ты должен знать наизусть.В третьтих не беспокоится и рассказывать с интересом чтобы каждый хорошо слушал.Надеюсь я тебе помог.
Я бы сначала помотрел на ссылку и скорее всего не стал бы заходить, но если приспичит то скачаю виртуалку и зайду
Поставь лучший ответ очень надо плз)
var
a,b,i,S:integer;
x: array[1..100] of integer;
begin
for i:=1 to 31 do
begin
x[i]:=random(1001);
write(x[i]:4);
end;
writeln;
readln(S);
writeln;
for i:=1 to 31 do
begin
if x[i]>S then
write(i:4);
end;
end.