Var
x,y:real;
begin
y:=8/5;{км в одной миле}
writeln('введите расстояние в милях');
readln(x);
writeln('расстояние в км: ', x*y);
end.
Считаем, что сначала вводится количество студентов, потом список студентов (по одному в строчке), потом фамилия нужного студента
var
ss: string;
s: array [1..100] of string;
n, i, j: integer;
begin
readln(n);
for i := 1 to n do
readln(s[i]);
for i := 1 to n -1 do
for j := 1 to n - 1 do
if s[j] > s[j + 1] then
begin
ss := s[j];
s[j] := s[j + 1];
s[j + 1] := ss;
end;
readln(ss);
j := 0;
for i := 1 to n do
if s[i] = ss then
j := i;
if j = 0 then
writeln('NO')
else
writeln('YES ', j);
end.
так чтоли?
<html>
<head>
<title>Анкета</Title>
</head>
<body>
<h1>Анкета</h1>
<form>
Какой браузер вы используете?
<select name="browser">
<option selected> Internet Explorer
<option> Opera
<option> Mozila
</select>
<br/>
Ваша электронная почта <input type="text" name="email" />
<br/>
Ваше имя <input type="text" name="name" />
<br/>
</form>
<a href="mailto:[email protected]">mailto:[email protected]</a>
</body>
</html>
1)1110011
1+2+16+32+64=115
2)1101001
1+8+32+64=105
3)134=128+2+4
10000110
Ответ: 3 (три единицы)
4)143=128+8+1+4+2
10001111
Ответ:5
5)141=128+8+4+1
10001101
Ответ:4
6)1100110
2+4+32+64=102
В первом задании:
1)Он просит ввести два значения, b и c
2)Идет подстановка в формулу дискриминанта, которая записана в переменную d
3)Вывод ответа, чему равен x1 и x2
Второе задание:
Write() выводит сообщение, Writeln() выводит сообщение и переносит на строчку вниз следующее.
1234
56
78
Третье:
Просит ввести два числа и потом как бы вывод а,b,a, но дело в том что переменные объявлены как integer, то есть целые числа, а значит 2.0 не прокатит ибо это число с плавающей точкой, другой тип данных и на выходе программы будет ошибка
