Sub HOK() Dim c As Long, NOK As Long a = CInt(InputBox("Введите первое число")) b = CInt(InputBox("Введите второе число")) If a = b Then NOK = a Else c = a * b Do If a > b Then a = a - b Else b = b - a Loop Until a = b NOK = c / a End If MsgBox "НОК=" + Str(NOK) End Sub
1. var s:string; m1,m2,m3:integer; begin writeln('- Привет! Я компьютер, а как тебя зовут?'); write('- '); readln(s); writeln('- ',s,', введи свои оценки по 3 предметам'); write('- '); readln(m1,m2,m3); writeln('- ',s,', твой средний ', (m1+m2+m3)/3); end.
Пример: - Привет! Я компьютер, а как тебя зовут? - Алёна - Алёна, введи свои оценки по 3 предметам - 4 4 4 - Алёна, твой средний 4
2. var a,b:integer; begin write('a = '); readln(a); b:=(a div 100)*100 + (a mod 10)*10 + (a div 10 mod 10); writeln('b = ',b); end.
Const n=12; m=10; var a:array[1..n,1..m] of integer; i,j,k:integer; begin k:=0; for j:=1 to m do for i:=n downto 1 do begin k:=k+1; a[i,j]:=k; end; for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); writeln; end; end.
Dim c As Long, NOK As Long
a = CInt(InputBox("Введите первое число"))
b = CInt(InputBox("Введите второе число"))
If a = b Then
NOK = a
Else
c = a * b
Do
If a > b Then a = a - b Else b = b - a
Loop Until a = b
NOK = c / a
End If
MsgBox "НОК=" + Str(NOK)
End Sub