uses crt; <em>{подключение модуля CRT}</em>
var
x: integer;<em> {описание переменных}</em>
begin <em>{начало программы}</em>
writeln('vvedi chislo: '); <em>{вывод текста на экран}</em>
read(x);<em> {чтение введеных данных}</em>
if (x mod 3 = 0) then x:=x+1 <em>{условие}</em>
else x:=x-2; <em>{если условие не выполняется}</em>
write('rezultat: ',x);<em> {вывод текста на экран}</em>
end. <em>{конец программы}</em>
1) закрашиваем бульдог, доберман, уход
2) все закрашиваем
3) закрашиваем доберман, бульдог
4) закрашиваем бульдог, доберман, и пересечени ухода с бульдогом и доберманом
Var
sum, x : integer;
begin
sum := 0;
repeat
read (x);
if (x mod 6 = 0) and (x mod 10 = 2) then sum := sum + x;
until x = 0;
write (sum);
end.
Видимо, это фрагмент программы на VB, привязанный к клику по кнопке Button4 на некоторой форме.
<span>Private Sub CommandButton4_Click()
</span><span><span>Max = 0
</span> For j = 1 To n
For i = 1 To m
If Max < a(i, j) Then Max = a(i, j)
Next i
Next j
TextBox2.Text = TextBox2.Text + Str(Max) + " "
End Sub</span>
Здесь ищется, а затем выводится в поле на форме максимальный элемент двухмерного массива, который извне и заполнен некоторыми значениями. Оператор ReDim я убрал, потому что он уничтожит содержимое массива.
<span>C)Alt+F4
</span>О нет! Что-то пошло не так во время добавления ответа
Слишком коротко.<span> Напишите минимум 20 символов, чтобы объяснить все.</span>