1.выбери верный ответ. в данной конструкции не хватает: нц раз
1)параграф
2)
3)кц
4)нет верного ответа
2.циклами являются:
(фото внизу)
3.построй на экране с исполнителя чертёжник квадрат, длину его стороны введи с клавиатуры и рассчитай площадь этого квадрата.
диалогквадрат
{
int c;
вывод "введите длину стороны квадрата";
ввод (сюда) ;
квадрат ( c );
вывод "площадь квадрата со стороной ",c,
" равна ",(сюда) ;
}
квадрат ( int c)
{
опусти_перо;
вектор ( 0, c); вектор ( сюда , 0 );
вектор ( 0, - c ); вектор ( -c , 0 );
подними_перо;
}
4.определи вид цикла.
uses drawman;
var i: integer;
begin
task ( 'c1' );
topoint (1,3);
for i: =1 to 17 do
begin
pendown;
onvector (0,-1);
onvector (1,1);
end;
penup;
topoint (0,0);
end.
5.чертёжнику был дан для исполнения следующий алгоритм:
повтори 5 раз
сместиться на (−3,−2) сместиться на (2,2) сместиться на ( 3 ,5 )
конец
какую команду надо выполнить чертёжнику, чтобы вернуться в исходную точку, из которой он начал движение?
ответ: сместиться на (x−сюда,y−сюда)
index='0'..'z';
var
Ch:array[0..255] of integer;
s:string;
i,max,imax:integer;
begin
{ очищаем массив счетчиков }
for i:=0 to 255 do Ch[i]:=0;
Writeln('Введите текст');
Readln(s);
for i:=1 to Length(s) do Inc(Ch[Ord(s[i])]);
max:=Ch[0]; imax:=0;
for i:=33 to 255 do { не рассматриваем непечатаемые символы и пробел}
if max<Ch[i]then begin max:=Ch[i]; imax:=i end;
Writeln('Символ "',Chr(imax),'" встретился ',max,' раз(а)')
end.
Тестовое решение:
Введите текст
"Что значит имя? Роза пахнет розой, хоть розой назови её, хоть нет." (В.Шекспир)
Символ "о" встретился 9 раз(а)