Информатика, опубликовано 18.04.2019 19:50
Паскаль абс робот, пишет втречено begin, а ожидалось ; что делать? uses robot begin task('cif2'); while freefromright do begin if wallfromup then right; paint; end; if wallfromup then paint; end.
Ответ оставил: Гость
Using System;
namespace ConsoleApplication28 {
class Program {
static void Main() {
Console.Write("Введите a: ");
int a = Convert.ToInt32(Console.ReadLine());
Console.Write("Введите b: ");
int b = Convert.ToInt32(Console.ReadLine());
double z1 = (Math.Sin(a) + Math.Cos(2 * b - a)) / (Math.Cos(a) - Math.Sin(2 * b - a));
double z2 = (1 + Math.Sin(2) * b) / (Math.Cos(2) * b);
Console.WriteLine("z1 = " + z1);
Console.WriteLine("z2 = " + z2);
Console.ReadKey();
}}}
namespace ConsoleApplication28 {
class Program {
static void Main() {
Console.Write("Введите a: ");
int a = Convert.ToInt32(Console.ReadLine());
Console.Write("Введите b: ");
int b = Convert.ToInt32(Console.ReadLine());
double z1 = (Math.Sin(a) + Math.Cos(2 * b - a)) / (Math.Cos(a) - Math.Sin(2 * b - a));
double z2 = (1 + Math.Sin(2) * b) / (Math.Cos(2) * b);
Console.WriteLine("z1 = " + z1);
Console.WriteLine("z2 = " + z2);
Console.ReadKey();
}}}
Ответ оставил: Гость
1)program wk;
var mas:array [1..5]of integer;i:integer;
begin
for i:=1 to 5 do
mas[i]:=Random(121)-64;
for i:=1 to 5 do
Writeln(mas[i])
end.
2) program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
p:=1;
for i:=1 to 8 do
begin
readln(mas[i]);
p:=p*mas[i];
end;
Writeln(p)
end.
3)program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
p:=1;
for i:=1 to 8 do
begin
readln(mas[i]);
if (i mod 2 <>0)then p:=p*mas[i];
end;
Writeln(p)
end.
var mas:array [1..5]of integer;i:integer;
begin
for i:=1 to 5 do
mas[i]:=Random(121)-64;
for i:=1 to 5 do
Writeln(mas[i])
end.
2) program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
p:=1;
for i:=1 to 8 do
begin
readln(mas[i]);
p:=p*mas[i];
end;
Writeln(p)
end.
3)program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
p:=1;
for i:=1 to 8 do
begin
readln(mas[i]);
if (i mod 2 <>0)then p:=p*mas[i];
end;
Writeln(p)
end.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01