//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
int main(){
int k=1;
int ar[4];
for(int i=0;i<4;i++){
cin>>ar[i];
k=k*ar[i];}
cout<<k;
cin.get();
cin.get();
return 0;
}
Пример ввода:
1
2
3
4
Пример вывода:
24
<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№4</u>
begin
var F:=ArrRandom(100,-50,50); F.Println;
Writeln('Сумма отрицательных элементов: ',F.Where(x->x<0).Sum)
end.
<u>Пример</u>
16 -23 -23 -31 0 -24 44 9 18 -48 26 27 24 8 -41 -37 35 -15 -36 8 -32 -3 -47 39 48 -4 45 -39 -1 -23 15 -44 26 21 -22 49 10 49 41 -29 23 -9 21 25 41 -13 17 19 -27 -49 -20 -46 43 8 -25 -32 -26 -11 -29 -47 -19 33 -40 -10 -12 19 -49 -48 -21 -39 4 37 -6 43 36 28 27 -22 49 10 29 -24 39 -3 48 11 -36 -33 -4 -40 25 -30 27 37 41 40 -20 -20 -13 -29
Сумма отрицательных элементов: -1374
<u>№5</u>
begin
var С:=ArrRandom(50,-10,10); С.Println;
Writeln('Сумма положительных элементов до первого нуля: ',
С.Where(x->x>=0).TakeWhile(x->x<>0).Sum)
end.
<u>Пример</u>
9 -5 -6 8 -6 -6 2 -10 1 -2 10 1 -7 -1 7 -1 0 -5 2 0 5 10 -10 6 -3 -9 -7 -2 9 -5 10 5 -8 4 5 -6 6 -7 -10 -6 -1 -9 -10 10 2 6 -3 7 -8 6
Сумма положительных элементов до первого нуля: 38
<u>№6</u>
begin
var C:=ArrRandom(20,-50,50); C.Println;
var D:=C.Where(x->x>0).ToArray; D.Println
end.
<u>Пример</u>
-38 -34 -49 -21 1 -1 -7 -44 -43 -40 8 -47 -49 44 6 31 -33 39 22 -18
1 8 44 6 31 39 22
using System;
namespace Application
{
class MainClass
{
public static void Main (string[] args)
{
int dvm = 0;
Console.WriteLine ("Введите номер месяца:");
int mec = Convert.ToInt32 (Console.ReadLine());
Console.WriteLine ("Введите день:");
int den = Convert.ToInt32 (Console.ReadLine());
if (mec > 0 && mec < 13 && den > 0 && den < 32) {
switch (mec) {
case 1:
dvm = 0;
break;
case 2:
dvm = 31;
break;
case 3:
dvm = 59;
break;
case 4:
dvm = 90;
break;
case 5:
dvm = 120;
break;
case 6:
dvm = 151;
break;
case 7:
dvm = 181;
break;
case 8:
dvm = 212;
break;
case 9:
dvm = 243;
break;
case 10:
dvm = 273;
break;
case 11:
dvm = 304;
break;
case 12:
dvm = 334;
break;
}
int dng = 365 - (dvm + den);
Console.WriteLine ("До нового года осталось " + dng + " дней");
Console.ReadLine ();
} else {
Console.WriteLine ("Ошибка");
Console.ReadLine ();
}
}
}
}
АЦП- аналогово-цифровой<span> преобразователь</span>
Program e1;
var
x, y: real;
begin
writeln('Введите х');
readln(x);
if x < 5 then y := (4 * sqr(x) + 1) / (-5)
else y := 3 * sqr(x) - 2;
writeln('y=', y)
end.
--------------------------------------------
program e2;
var
x, y: real;
begin
writeln('Введите х');
readln(x);
if x > -4 then y := (5 * sqr(x) + 2) / (x + 4)
else y := 3 * sqr(x) + 7;
writeln('y=', y)
end.
У меня нет Турбо Паскаля, вставьте там в начале, как всегда пишете директиву uses Crt