Var
a, v : integer;
begin
write('Введите длину ребра:');
readln(a);
v := a * a * a;
writeln;
writeln('Объем = ', v);
<span>end. </span>
/*
1. Описать класс с именем MARSH, содержащую следующие, поля:
• BEGST — название начального пункта маршрута;
• TERM — название конечного пункта маршрута;
• NUMER — номер маршрута.
2. Написать программу, выполняющую следующие действия:
• ввод с клавиатуры данных в массив TRAFIC, состоящий из 3 элементов типа MARSH;
• вывод на экран информации о маршруте, номер которого введен с клавиатуры;
• если таких маршрутов нет, выдать на дисплей соответствующее сообщение.
*/
#include <iostream>
using namespace std;
class MARSH
{
public:
string BEGST, TERM, NUMER;
MARSH(string b, string t, string n)
: BEGST(b), TERM(t), NUMER(n)
{
}
MARSH() {}
void info() {
cout << "Маршрут №" << NUMER
<< " (" << BEGST << '-'
<< TERM << ')';
}
};
int main()
{
MARSH TRAFFIC[3];
string b, t, n;
for (int i = 0; i < 3; i++) {
cout << "Ввод данных для маршрута " << i << ':' << endl;
cout << "Название начального пункта маршрута: ";
cin >> b;
cout << "Название конечного пункта маршрута: ";
cin >> t;
cout << "Номер маршрута: ";
cin >> n;
cout << endl;
TRAFFIC[i] = MARSH(b, t, n);
}
cout << endl << "Введите номер маршрута: ";
cin >> n;
MARSH m;
for (int i = 0; i < 3; i++) {
m = TRAFFIC[i];
if (m.NUMER == n) {
m.info();
return 0;
}
}
cout << "Нет маршрута с таким номером!" << endl;
return 1;
}
Var
st:string;
i:byte;
begin
readln(st);//вводим строку
write('Числа имеющиеся в тексте: ');
for i:=1 to length(st) do
if (st[i] in ['1'..'9']) then write(st[i]); //если текущий символ принадлежит ко множеству чисел -то выводим его
end.
//PascalABC.NET 3.0
begin
for var i := 1 to 10 do
begin
for var j := 1 to 10 do
if i = 1 then write(j : 3)
else if j = 10 then write(9 + i : 3)
else if i = 10 then write(29 - j : 3)
else if j = 1 then write(38 - i : 3)
else write(0 : 3);
writeln;
end;
<span>end.</span>
Могу ошибаиться с пониманием задачи, мой ответ: 78 или 12+11+10+9+8+7+6+5+4+3+2+1