1)
<span><span>procedure Insert(source: string; var s: string; index: integer);
Вставляет подстроку source в строку s с позиции index</span><span>procedure Delete(var s: string; index, count: integer);
Удаляет из строки s count символов с позиции index
2)
var s:string; i,n,code:integer;
begin
write('Введите длинное число:');
readln(s);
for i:=1 to length(s) do
begin
val(s[i],n,code);
if code=0 then writeln(n);
end;
end.
Пример:
Введите длинное число:3456810285
3
4
5
6
8
1
0
2
8
5
Если не требуется выполнять арифметических действий с цифрами, то можно так:
var s:string; i:integer;
begin
write('Введите длинное число:');
readln(s);
for i:=1 to length(s) do writeln(s[i]);
end.</span></span>
1600 - 80 = 1520 кількість учнів які займаються
1520 - 950 = 570 учнів,які не займаються кружками, а ходять в спорт. секції
1520 - 1052 = 468 учнів які не ходять в спорт.секції, а займаються кружками
950 - 468 = 482 учнів які можуть ходити одночасно
1052 - 570 = 482 учнів які можуть ходити одночасно
Відповідь: B)482;
Вода: можно пить, лить, тушить огонь, мыть, играть и т.д. Человек: потребляет пищу, играет, ходит, учится , думает головой, читает книги и т.д.
Паскаль.
Немного не понятно: от 1 до 10 это относится только к нечетным числам или ко всем? Ну напишу программу которая просто все числа вычисляет, если сама не сможешь поставить условие ограничения, то сообщи точное условие задачи и напиши мне в личку
program jjj;
var a: array [1..10] of integer; i,summa,proizv:integer;
begin
for i:=1 to 10 do begin
Writeln('напишите элемент массива номер ',i); read(a[i]);
end;
For i:=1 to 10 do begin
if a[i] mod 2=0 then summa:=summa+a[i] else
proizv:=proizv*a[i];
end;
Writeln(summa,' ',proizv); readln;
end.
Var a,b,c:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) then writeln('treugolinik suscestvuet ;) else writeln('treugolinik ne suscestvuet');
readln;
end.