Если в Паскале, и первый пример всё же 1x2, то такая программа:
var
a,b: integer;
begin
a := 1;
b := 2;
while a<=9 do
begin
writeln(a,'x',b,'=',a*b);
a := a + 1;
end;
end.
friends = []
friends_count = 0
print('Вводите имена своих друзей по очереди')
print('Чтобы закончить введите 1')
while True:
name = input()
if name == '1':
break
friends += [name]
friends_count += 1
print('Список друзей начиная со второго:')
for i in range(1,len(friends)):
print(friends[i])
Var a,b,c:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
Write('y = ',(a*a-2*b-c*c)/(3*a*b));
End.
Алг
нач
вещ а,б,с,мин
вывод "Введите результат первого "
ввод а
мин:=а
вывод "Введите результат второго "
ввод б
если мин>б то мин:=б все
вывод "Введите результат третьего "
ввод с
если мин>с то мин:=с все
вывод "Результат победителя заплыва: ",мин
кон<span>
</span>