Var a: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] in ['0'..'9']) then write(a[i]);
<span>end.
2) Тут лучше: на входе строка, а берётся часть между 1 и 2 пробелами, ответ уже есть под задачей х)
var a, b: string;
i: integer;
w: boolean;
begin
readln(a);
for i := 1 to length(a) do
begin
if ((a[i] = ' ')) then
if (length(b) = 0) then w := true else w:=false;
if (w) then b := b + a[i];
end;
writeln(b);
<span>end.
3)
var s: string;
i: integer;
begin
readln(s);
for i := 1 to length(s) do
if s[i] in ['A', 'E', 'I', 'O', 'Y', 'a', 'e', 'i', 'o', 'y']
then write(s[i]);
<span>end.</span></span></span>
Флэш-накопитель, CD/DVD диск, внешний жесткий диск, дискета.
Div - целая часть от деления
mod - остаток от деления
<span>391 div 100 = 3
(391 mod 100) div10 = 91 div 10 = 9
391 mod 10 = 1
</span><span>391 div 100+(391 mod 100)div10 +391mod 10 = 3+9+1 = 13</span>
using System;
namespace ConsoleApp6
{
class Program
{
static void Main(string[] args)
{
int x, y;
x = int.Parse(Console.ReadLine());
y = int.Parse(Console.ReadLine());
if (Math.Max(x, y) % 2 == 0)
Console.WriteLine(Math.Max(x, y).ToString());
else
Console.WriteLine((Math.Min(x,y)*Math.Max(x,y)/2.0).ToString());
Console.ReadKey();
}
}
}
uses crt;
var
a:array[1..1000] of integer;
i,n,sum:integer;
begin
write('Введите число: ');
read(n);
for i:=1 to n-1 do
if (i mod 3=0) and (i mod 5<>0) then sum:=sum+i;
write(sum);
end.