1)
Var
n,i:integer;
Begin
Write('n = ');ReadLn(n);
For i:= 1 to 9 do
WriteLn(i,'*',n,' = ',i*n);
End.
2)
Var A,B:integer;
Begin
WriteLn('Введите натуральное число');
ReadLn(A);
B:=A mod 10;
While (A div 10 > 0) do
A:=A div 10;
if A>B then WriteLn('Первая больше')
else if A<B then WriteLn('Последняя больше')
else WriteLn('Цифры равны')
End.
Рисовать долго, по этому объясню кратко (вы там проходите сейчас, должен знать КАК рисуются схемы, так что сам осилишь оформить), значит алгоритм следующий:
Я буду использовать переменную С с начальным значение 0. Прибавляя единицу в случае положительности переменной к концу алгоритма можно будет по её значению определить количество положительных переменных
1. Проверить число а на положительность.
( a > 0) (Да, нет)
Если да, то нарисуешь как на рисунке
2. Проверить число b на положительность.
( b > 0) (Да, нет)
3. Проверить число с на положительность.
( с > 0) (Да, нет)
4. Вывести значение С (Это ответ на вопрос)
5. Конец алгоритма (блок-схемы)
ответ: число цифр во входном числе
Ответ:
rs1 = золото
rs2 = промышленник
rs3 = пленник
rs4 = мышление
temp = ленник
На экране
золото промышленник пленник мышление
Объяснение:
Функция Copy возвращает подстроку строки (получается новая строка).
Copy(S, Index, Count)
S - строка. Index и Count - целые числа. Функция Copy копирует часть строки S начиная с буквы с номером Index содержащую Count букв.
Процедура Delete - удаляет подстроку из строки (изменяется указанная строка).
Delete(S, Index, Count)
S - строка. Index и Count - целые числа.Процедура Delete удаляет из строки S, начиная с буквы с номером Index - Count букв.
Функция Length - возвращает длину строки (получается целое число).
Length(S)
S - строка.
s = золотопромышленник
rs1 = copy (s,1,6) = золото
rs2 = copy (s, length(rs1)+1,length(s)-length(rs1) = copy (s,6+1,18-6) = copy (s,7,12) = промышленник
temp = s = золотопромышленник
delete (temp,1,12)
temp = ленник
rs3 = s[7]+temp = п+ленник = пленник
rs4 = s = золотопромышленник
delete (rs4,1,9)
rs4 = мышленник
delete (rs4,7,1)
rs4 = мышленик
rs4[length(rs4)] = rs4[5]
rs4[8] = rs4[5]
к = е
rs4 = мышление
Выводим слова на экран через пробел.