Найти сумму всех целых чисел от A до B (A>B). В паскале пожалуйста)буду очень благодарен)

При помощи регулярных выражений: 1. Написать программу, которая проверяет, является ли введенная с клавиатуры строка двоичным чи

ANDREAD666 [36]

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
var s:=ReadlnString;
if s<>s.MatchValue('[01]+') then Write('не ');
Writeln('двоичное число')
end.

Пример
010101111011
двоичное число

begin
var s:=ReadlnString;
if s<>s.MatchValue('[\+-]?\d+.\d+') then Write('не ');
Writeln('дробное число')
end.

Пример
12.54
дробное число

begin
var s:=ReadlnString;
s.Matches('\s([\+-]?\d{2})\s').Select(t->Trim(t.Value)).Println;
end.

Пример
123.3 15 -11.7 +21 23.2 51 9 182
15 +21 51

0 0

4 года назад

Придумайте сами загадки для понятий телефон,стол,диск,записная книжка,мышь,школа.Помогите ожалуйста !

Ангелина Зыбина [231]

Диск (круглое и плоское на вид шар)
Записная книжка (склад информации. в миниатюрной виде)
мышь (быстрая дерзкая, но с длинным хвостом)

0 0

4 года назад

Написать программу, которая заполняет массив из 6 элементов случайными неповторяющимися целочисленными значениями от 1 до 49. По

Olgalala

Program Loto;
Uses Crt;
Const lt = 49; (* количество шаров в лототроне *)
shar = 6; (* количество выигрышных шаров*)
Var lott,vyb : array [1..shar] of integer;
i, j, nom, k : integer;
m:set of byte;
Begin
randomize;
m:=[];
for i:=1 to shar do
begin
repeat
nom:=1+random(lt);
until not(nom in m);
lott[i]:=nom;
m:=m+[nom];
end;
writeln('Выберите шаров от 1 до 6 ',lt);
m:=[];
begin
repeat
write('nom',i,'=');
readln(nom);
until (nom in [1..lt])and not(nom in m);
vyb[i]:=nom;
m:=m+[nom];
end;
clrscr;
writeln('Номера шаров в лототроне');
for i:=1 to shar do write(lott[i]:3);
writeln;
writeln('Выбранные шары');
for i:=1 to shar do
write(vyb[i]:3);
writeln;
write('Совпавшие шары: ');
k:=0;
for i:=1 to shar do
for j:=1 to shar do
if lott[i]=vyb[j] then
begin
k:=k+1;
write(lott[i]:3);
end;
if k=0 then write('- нет')
else write(' Их количество=',k)
end.

0 0

4 года назад

Мистер Фокс пошел в гости к Мистеру Форду, который живет в многоквартирном доме в самом последнем подъезде и в квартире с самым

Татьяна40 [179]

Значит 2527= количество квартир * количество подъездов
2527 = n * m = 7 * 19 *19
Получается, что если подъездов 7, то в каждом 19 * 19 квартир, что отвечает 19 площадкам, и на каждой площадке в таком случае по 19 квартир.

Или может быть 19 подъездов, 7 этажей по 19 квартир на этаже

Или же 2527 = 7 * 361 * 1 = 133 * 19 * 1

133 подъезда, 1 этаж, на каждом этаже 19 квартир
361 подъезд, 1 этаж, на каждом этаже 7 квартир

Или же 2527 = 2527 * 1 * 1

2527 подъезд, 1 этаж, на каждом этаже по 1 квартире
1 подъезд, 1 этаж, 2527 квартир на этаже

Ответ: 1, 7, 19, 133, 361, 2527

0 0

4 года назад

Определить, делиться ли целое число на 6, если "да", то возвести его в квадрат. |Pascal ABC| (Алгоритмическая конструкция ВЕТВЛ

Мемфис

Var x:integer;
begin
write('Введите число: ');
readln(x);
if x mod 6=0 then writeln(sqr(x))
end.

0 0

4 года назад