Sub aaa() Const t = 24.683, s = -15000 Dim x As Double, y As Double, z As Double Select Case t Case Is > 0 x = 3 * t ^ 2 Case 0 x = 4 Case Else x = 24 * t End Select If t - s > x Then y = 0 Else y = 241 End If z = x + y MsgBox z End Sub
Системный блок-включающий в себя процессор устройства оперативной памяти .предназначен для обработки данных и управления работой компьютера.клавиатура применяется для вода информации в память компьютера. монитор предназначен для вывода информации на экран .мышь -одно из основных устройств ввода предназначенное для управления компьютером.джойстик для управления компьтером во время игры сканер для вода графических изображений в память компьютера непосредственно с бумажным оригиналом принтер для вывода информации на бумагу
var mas: array [1..10] of integer; i,a: integer; begin clrscr; writeln('Input massive'); a:=0; for i:=1 to 10 do begin readln(mas[i]); if (i mod 2 =0) and (mas[i] < 0) then a:=a+1; end; writeln('Answer ',a); end.
number 2
uses crt;
var mas: array [1..10] of integer; i,a,k: integer; begin clrscr; writeln('Input massive'); for i:=1 to 10 do readln(mas[i]); i:=1; while (mas[i]<>0) and (i<10 ) do i:=i+1; k:=1; if i < 10 then begin for a:=i to 10 do k:=k*mas[a]; writeln(k); end else writeln('Nulya net');
Const t = 24.683, s = -15000
Dim x As Double, y As Double, z As Double
Select Case t
Case Is > 0
x = 3 * t ^ 2
Case 0
x = 4
Case Else
x = 24 * t
End Select
If t - s > x Then
y = 0
Else
y = 241
End If
z = x + y
MsgBox z
End Sub
Результат - во вложении.