Var
a:array[1..10]of integer;
i,n:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
write(a[i],'; ');
end;
for i:=1 to 9 do
if a[i]<a[10] then
begin
n:=i;
break;
end;
writeln;
write('Ответ: ');
if n>0 then writeln(a[n]) else writeln(n);
<span>end. </span>
Var
s:string;
i:integer;
begin
Write('Введите натуральное число: '); Readln(s);
i:=Length(s)-2;
while i>1 do begin Insert(',',s,i); i:=i-3 end;
Writeln(s)
end.
Пример
Введите натуральное число: 12345678
12,345,678
Линейный
Жили-были дед да баба.
Была у них курочка ряба.
Снесла курочка яичко, не простое, золотое.
Дед бил, бил – не разбил.
Баба била, била – не разбила.
Мышка бежала, хвостиком махнула.
Яичко упало и разбилось.
Дед и баба плачут.
Курочка кудахчет.
с ветвлением
«Гуси-лебеди»
Начало
Девочка просит печку помочь.
Если съешь моего пирожка,
то помогу,
иначе не помогу
Конец
Любишь кататься, люби и саночки возить
Начало
если любишь кататься,
то люби и саночки возить
Конец
Циклический алгоритм
«Собирай по ягодке, наберешь кузовок»
Сказка о рыбаке и рыбке:
- раз старик закинул невод, пришел невод с одною тиной
второй раз старик закинул невод... .
#include<iostream>
using namespace std;
int main() {
setlocale(0, "");
int nech=0, ch=0;
int a;
cin >> a;
while(a!=0){
cin >> a;
if (a % 2 == 0)ch++;
else nech++;
}
cout <<"НЕЧЕТНЫХ "<< ch <<" ЧЕТНЫХ "<< nech << endl;
system("pause");
}
