Информатика, опубликовано 07.04.2020 18:26
Найдите переменную
1) a := 30;
b := 14;
c := 3;
a := a – 2 * b;
if ((a > b) or (a > c) and (c > b)) then
begin
a := b + 2 * a;
c := c + 2 * a;
end
else
begin
a := b - 2 * a;
c := c + 4 * a;
end;
2) a := 30;
b := 6;
a := a * 3 / b;
if a > b then
begin
c := 2 * a – 5 * (b + 2);
c := 2 * c + 5 * (b + 2);
end
else
c := 2 * a + 5 * (b + 2);
3)
a := 22;
b := 3;
a := - 2 * b + a / 2;
c := 7;
if ((a < b) or (a>=c)) then
c := 4 * b – 3 * a
else
c := 3 * a + 4 * b;
4)a := 30;
b := 6;
a := a / 2 * b;
if a > b then
c := a - 3 * b
else
c := a + 3 * b;
Ответы
Ответ оставил: Гость
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();
}}}
Ответ оставил: Гость
Информационная модельОтвет оставил: Гость
var i,s:integer;{1}begins:=0;for i:=1 to 1000 doif i mod 2=0 then s:=s+i;end.{2}beginfor i:=1 to 1000 doif odd(i) then s:=s+i;{3}a:array[1..500] of integer;n:integer;for i:=1 to 1000 doif odd(i) then a[i]:=i;n:=i;for i:=1 to n dos:=a[i]+s;end.Ответ оставил: Гость
Использовать Роботалг начнц 6 раззакраситьвверхкцвлевовнизнц 5 раззакраситьвнизкцнц 6 раззакраситьвлевокцнц 6 раззакраситьвверхкцвлевовнизнц 6 раззакраситьвнизкцнц 9 раз закраситьвправокцкон
Другие вопросы по информатике
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
