var
x: <em>real </em>:= 1;
begin
while (x <= 13) do
begin
writeln('y(', x, ') = ', ln(cos(x)));
x += 0.4;
end;
<span>end.</span>
#include <iostream>
using namespace std;
int main()
{
int input;
cin >> input;
if (input == 1){
cout << "Понедельник";
}else if (input == 2){
cout << "Вторник";
}else if (input == 3){
cout << "Среда";
}else if (input == 4){
cout << "Четверг";
}else if (input == 5){
cout << "Пятница";
}else if (input == 6){
cout << "суббота";
}else if (input == 7){
cout << "Воскресенье";
}
return 0;
}
===== PascalABC.NET =====
-1-
begin
var a := new integer[9];
for var i := 0 to 2 do
begin
a[3 * i] := ReadInteger('Введи элемент ' + (3 * i + 1).ToString);
a[3 * i + 1] := 6 * i + 4;
a[3 * i + 2] := Random(0, 9)
end;
a.Println
end.
-2-
begin
var a := ArrRandom(15, -99, 99);
a.Println;
var b := a.Select(p -> p * p).ToArray;
b.Println;
Println('Разность', a.Max - b.Min)
end.
a:=2*n;
if a mod 3 =0 then write (a, ' '); // кратно3
//Если кратно 5
if a mod 5=0 then write (a, ' '); // кратно 5
//если кратно x
if a mod x =0 then write (a, ' '); // кратно x
<span> 0,0625 Мб =</span><span>65 536 байт
</span>