Носители, флеш накопители, жёсткий диск, память телефона, карта памяти, дата центр
Попробую описать ход предполагаемого решения, где большие буквы -имена, а маленькие - профессии, точнее их первые буквы.
Потом пишу номер условия и, в зависимости от него, переставляю имена и профессии на соответствующие позиции.
---
Сначала запишем их так, как в условии:
Б(д) В(с) А(п) Ф(т)
Условия:
1. Просто запоминаем
2. Б(д) В(п) А(с) Ф(т)
3. Просто запоминаем
4. Ф(т) Б(д) В(п) А(с)
5. Просто запоминаем
6. Просто запоминаем
7. Ф(т) А(д) В(п) Б(с)
8. Просто запоминаем.
Проверяем выполнение всех условий, убеждаемся, что все верно.
Ответ:
1-токарь Федор
2-дантист Андрей
3-плотник Виктор
4-слесарь Борис
Program z1;
var
a,b,c,d:integer;
begin
writeln('Введите число a и число b');
readln(a,b);
c:=sqr(max(a,b));
d:=min(a,b)+1;
writeln('Первое число ',c,', второе число ',d);
<span>end.
Исправил</span>
1. Потеря брата
2. Печка и ржаные пирожки
3. Лесная яблонька
4. Молочная река, кисельные берега.
5. Избушка Бабы Яги
<span>6. Возвращение домой</span>
Visual Basic? Их много, вот, например, на VB.NET
Sub Main()
Dim N As UInteger
Dim Num As Integer
Dim A As String = String.Empty
N = Integer.Parse(Console.ReadLine())
For i As UInteger = 1 To N
Console.Write(i.ToString() + " ")
Num = Integer.Parse(Console.ReadLine())
If Num = 0 Then
A += i.ToString()
End If
Next
Console.WriteLine()
Console.WriteLine()
Console.WriteLine(A.Length)
Console.WriteLine()
For Each i As Char In A
Console.WriteLine(i)
Next
Console.ReadKey()
End Sub