Нпзвание города;Соки,уха,туча,баки. Название реки:Упал,оса,каша,волна. Новое Слово:Марка,корж,булка,лапка,зубы,песок,галка,клин,
Сергей-Ка
1)Соки-Сочи
уха-уфа
туча-тула
баки-баку
2)урал, ока, волга,
маска,корт, будка, ласка, дубы, гайка, клён, доска, цвет,колено.
<span>управлять компьютером можно, выбирая нужную команду из заранее заготовленных вариантов - это </span>Командная сторка
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>
Линейка- чтобы измерять
транспортир-тот кто перевозит машины
термометр-чтобы измерять температуру
барометр-прибор который измеряет давление
компасы чтобы находить мтороны
телескоп чтобы наблюдать за звездами
микроскоп-чтобы смотреть на мелкие вещи
Program ugadai;
uses crt;
var
i,z,o:integer;
begin
randomize;
writeln('Введите число от 0 до 99:');
z:=random(100);
for i:= 1 to 10 do
begin
read(o);
if (o = z) then
begin
writeln('Вы угадали!!!');
break;
end else begin
if (i = 10) then begin
writeln('Жалко,но число не отгаданно.Загаданное число было ', z);
end else begin
writeln('Упс! У вас еще ',10 - i,' попопыток. Введите число:');
end;
end;
end;
<span>end.</span>