Написать программу Если a>7 найдите сумму b и c, иначе найдите их разность

Знания

Информатика

1 ответ:

TUR [408]4 года назад

0 0

На паскале точно все запятые там и ; не помню но как-то так вот.

var a, b, c, d
begin
a:=2;
b:=3;
c:=4;
if a>7 then d:=b + c
writeLn (d<span>);</span>
end.

Читайте также

Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел. Вводится число N, а затем N чисел. Не

Алекс5й

//Dev-C++ 4.9.9.2

#include <iostream>
using namespace std;

int main(){
int a,n=0;
int k0=0;
int kp=0;
int kot=0;
cin>>n;
for(int i=0;i<n;i++){
cin>>a;
if(a==0)k0++;
if(a>0)kp++;
if(a<0)kot++;}
cout<<k0<<endl<<kp<<endl<<kot;
cin.get();
cin.get();
return 0;
}

Пример ввода:
4
0
-1
1
2
Пример вывода:
1
2
1

0 0

4 года назад

У исполнителя Утроитель две команды, которым присвоены номера: 1. умножь на 3 2. вычти 2 Первая из них увеличивает число на экра

TolyaSpetz

1212 вот так.
Как-то так))

0 0

4 года назад

Одномерный массив 1. Составьте программу ввода и вывода массива: 5, -2, 3, -6, 7, 9, -4, 8, 1, 2, 7, -3. 2. Составьте блок-схем

ТарасоваКсю

3)
const n=10;
var a:array [1..n] of integer; r,i:integer;
begin
r:=1;
for i:=1 to n do begin
a[i]:=r; inc(r,2); end;
for i:=1 to n do
write(a[i],' ');
end.

0 0

4 года назад

ПОМОГИТЕ написать программу которая выводит число , второе меньше вводимого х . pascal

НАДЕЖДАБОРО

Var x,y:real;
begin
write('x = ');
readln(x);
y:=x/3;
writeln('y = ',y);
end.

Пример:
x = 15
y = 5

0 0

4 года назад

ПАСКАЛЬ ABC.NET Найти сумму числового ряда с заданной точностью e (вводится пользователем): S=1/(2*3*4)+1/(3*4*5)+1/(4*5*6)+....

anyatardaeva

begin

var eps := ReadReal('Введите желаемую точность:');

var b := 1 / (2 * 3 * 4);

var s := b;

var i := 2;

var a: real;

repeat

a := b;

b := 1 / ((i + 1) * (i + 2) * (i + 3));

s += b;

Inc(i)

until Abs(b - a) <= eps;

Println(s)

end.

0 0

4 года назад