Язык Pascal. Напишите программу, которая позволяет вводить с клавиатуры натуральное четырехзначное число а и определяет сумму и произведение его цифр.
Procedure swap(var a, b: real); var t: real; begin t := a; a := b; b := t; end;
var a, b, c: real; begin readln(a, b, c); if (a > b) then swap(a, b); if (b > c) then swap(b, c); if (a > b) then swap(a, b); writeln(a, ' ', b, ' ', c); end.
Без процедур:
var a, b, c, t: integer; begin readln(a, b, c); if (a > b) then begin t := a; a := b; b := t; end; if (b > c) then begin t := b; b := c; c := t; end; if (a > b) then begin t := a; a := b; b := t; end; writeln(a, ' ', b, ' ', c); end.
Искренне надеюсь, что Вы сможете перевести этот код к нужному виду..:) В принципе, расхождения должны быть только в вводе/выводе (где Console.Бла-бла-бла) и генерации случайных чисел)
Sub Main() Dim a(29), Sum, Col As Integer Dim Rnd = New Random() For i As Integer = 0 To 29 a(i) = Rnd.Next(-100, 100) Console.Write("{0} => {1}" + Environment.NewLine, i, a(i)) If (i > 0) Then If (a(i) Mod a(0)) Then Sum = Sum + a(i) Col = Col + 1 End If End If Next Console.WriteLine(Math.Round(Sum / Col, 2)) Console.ReadKey() End Sub
var t: real;
begin
t := a;
a := b;
b := t;
end;
var a, b, c: real;
begin
readln(a, b, c);
if (a > b) then swap(a, b);
if (b > c) then swap(b, c);
if (a > b) then swap(a, b);
writeln(a, ' ', b, ' ', c);
end.
Без процедур:
var a, b, c, t: integer;
begin
readln(a, b, c);
if (a > b) then
begin
t := a;
a := b;
b := t;
end;
if (b > c) then
begin
t := b;
b := c;
c := t;
end;
if (a > b) then
begin
t := a;
a := b;
b := t;
end;
writeln(a, ' ', b, ' ', c);
end.
Sub Main()
Dim a(29), Sum, Col As Integer
Dim Rnd = New Random()
For i As Integer = 0 To 29
a(i) = Rnd.Next(-100, 100)
Console.Write("{0} => {1}" + Environment.NewLine, i, a(i))
If (i > 0) Then
If (a(i) Mod a(0)) Then
Sum = Sum + a(i)
Col = Col + 1
End If
End If
Next
Console.WriteLine(Math.Round(Sum / Col, 2))
Console.ReadKey()
End Sub