var
str, num: <em>string</em>;
begin
readln(str); <em>//str := 'Day 10, mice 8: "Year" 7 is a mistake 91.';</em>
foreach c: char in str do
if (Char.IsDigit(c)) then
num += c;
for j: byte := 1 to length(num) - 2 do
for i: byte := 1 to length(num) - 1 do
if (num[i] < num[i + 1]) then
begin
str[1] := num[i];
num[i] := num[i + 1];
num[i + 1] := str[1];
end;
if (Integer.Parse(num) > 0) then
begin
while (num[num.Length - 1] = '0') do
num.Remove(num.Length - 1);
writeln('Да' + #13 + num);
end
else
writeln('Нет');
end.
Uses crt;
var a,b,c : integer;
begin
writeln('Введите a (c<a*b)');
readln(a);
writeln('Введите b (c<a*b)');
readln(a);
writeln('Введите c (c<a*b)');
readln(a);
repeat
c = c*2;
until c > a*b;
writeln(a,b,c);
5 надеюсь что язык запросов SQL, а не какой то экзотический)
а) select * from p where время отправления<=06:00:00
b) select * from p where стоянка>30
в) select * from p where откуда='Свердловск'
г) select * from p where куда<>'Москва'
6
а) 73, 339, 285, 49Н,
б) 73, 285, 49Н, 265Н,
в) 45
г) 73, 265Н, 45
Одна из самых поющих животных-птица
В таблице может быть одно (или несколько) уникальное поле, по которому можно получить всю строку таблицы.
Значение этого поля одно на всю таблицу.
коллекция в питоне, это такой тип данных, похожий на список. Есть уже заданные коллекции, например все латинские буквы.