Uses crt;
type sInfo = record
surname:string;
height:integer;
end;
var pInfo:array [1..12] of sInfo;
begin
pInfo[1].surname := 'Смирнов';
pInfo[1].height := 190;
pInfo[2].surname := 'Иванов';
pInfo[2].height := 155;
pInfo[3].surname := 'Николаев';
pInfo[3].height := 150;
pInfo[4].surname := 'Викторов';
pInfo[4].height := 168;
// И так далее по примеру выше.
// Вывод вот так:
writeln('Фамилия = ', pInfo[1].surname, ' Возраст = ', pInfo[1].height);
end.
Обозначается? Если я правильно понял, ты о названии переменной? Название переменной это совокупность латинских букв и цифр, причем цифра не может стоять на первом месте в названии переменной. Примеры: x, i, j, a1, a2, sum.
Program gt;
var x1,x2,y1,y2:real;
begin
readln(x1,y1,x2,y2);
if((x1*x1+y1*y1)>(x2*x2+y2*y2))then writeln('2-точка')else
writeln('1-точка');
end.
1) 1
2) 0
3) 1
4) 1
5) 1
если нужны пояснения в личку потому как муторно все писать, лучше словами объяснить
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
// Вводим строку с клавиатуры, приводим буквы к строчным,
// разбиваем на слова по пробелу и помещаем их в массив aW
var aW:=ReadlnString('->').ToLower.ToWords;
// Пропускаем массив через фильтр, оставляющий слова, содержащие
// русскую букву "а" и подсчитываем, сколько слов прошло через него.
// Полученное количество выводим.
Writeln('Слов с "а": ',aW.Where(w->Pos('а',w)>0).Count)
end.
Пример
-> Наша Таня громко плачет: уронила в речку мячик
Слов с "а": 4