Var
f1: text;
b, c, i: integer;
begin
randomize;
assign(f1, '6161.txt');
rewrite(f1);
for i := 1 to 100 do
begin
c := random(999)+1;
write(f1, ' ', c);
end;
close(f1);reset(f1);
b:=0;
while not EOF(f1) do
begin
read(f1, c);
if (c div 100 > 0) and (c mod 3 = 0) then b:= c;
end;
close(f1);append(f1);writeln(f1);writeln(f1);
if b <> 0 then writeln(f1, 'Число ', b, ' является трехзначным и нацело делится на 3')
else writeln(f1, 'В файле нет трехзначных чисел, которые нацело делятся на 3');
close(f1);
end.
Использовать Чертежник
алг МИМ
нач
опустить перо
сместиться на вектор(0.75,3)
сместиться на вектор(0.75,-3)
сместиться на вектор(0.75,3)
сместиться на вектор(0.75,-3)
поднять перо
сместиться на вектор(1,0)
опустить перо
сместиться на вектор(0,3)
сместиться на вектор(0,-3)
сместиться на вектор(1.5,3)
сместиться на вектор(0,-3)
поднять перо
сместиться на вектор(1,0)
опустить перо
сместиться на вектор(0.75,3)
сместиться на вектор(0.75,-3)
сместиться на вектор(0.75,3)
сместиться на вектор(0.75,-3)
кон
#include <iostream>
#include <string>
#include <time.h>
using namespace std;
void main()
{
<span> srand(time(NULL));
</span><span> int n,k=0,k1=4;</span><span>
cin >> n;</span><span> //вводишь количество символов
string *s=new string [n];</span><span>
for (int i = 0;i < n;++i)
</span><span> {
</span><span> while (k == k1)</span><span>
{
</span><span> k = rand() % 3;
</span><span> }</span><span>
switch (k)</span><span>
{
</span><span> case 0:s[i] = '0';cout << s[i];break;
</span><span> case 1:s[i] ='1';cout << s[i];break;</span><span> //вместо 0,1,2 пишешь свой алфавит .
case 2:s[i] ='2';cout << s[i];break;</span><span>
}</span><span>
k1 = k;</span><span>
}</span>
<span> system("pause");
</span><span>}</span>