goldglobustour725
?>

Даны 2 числа. составить программу в результате выполнения которой a и b поменяются местами в паскале аbc

Информатика

Ответы

Кольцова
Var a,b: integer; begin read(a,b); b: =b+a; a: =b-a; b: =b-a; write(a,b); end.
master-lamaster
#include < iostream> using namespace std; void main() {int n,k=0; float b=0; cout< < "vvedite n="; cin> > n; cout< < endl; float* f = new float [n]; for(int i=1; i< =n; i++) { cout< < "a["< < i< < "] = "; cin> > f[i]; } for(int i=1; i< =n; i++) {     b=f[i]; if(-0.2< =sin(b)< =0.5) {            k++;   cout< < "znachenie sinysa = "< < i< < "el-ta "< < sin(f[i])< < endl; } b=0; } cout< < " kol-vo ravno="< < k< < endl; system("pause"); }
toprussianevent
Uses crt; const n=10; var a: array [1..n] of integer;     x,k: integer; begin       k: =0;       for x: =1 to 10 do       begin           a[x]: =random(99)+1;           writeln('a[',x,']: ',a[x]);           if a[x] mod 3=0 then inc(k);       end;       writeln('количество элементов, кратных 3: ',k); end.       для турбо паскаль: uses crt; const n=10; var a: array [1..n] of integer;     x,k: integer; begin      clrscr;       k: =0;       for x: =1 to 10 do      begin          a[x]: =random(100)+1;           writeln('a[',x,']: ',a[x]);           if a[x] mod 3=0 then inc(k);       end;       writeln(k);       readln; end.скрины, как должна работать программа, приложила.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Даны 2 числа. составить программу в результате выполнения которой a и b поменяются местами в паскале аbc
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

turoverova5
aleksandramir90
Дементьева-Артем1315
shturman-765255
kovalenko262
jamaltreid
Reznikova1075
Сергеевна_Юрикович
deadnobody
plio67380
yurievaalxndra55
Головин662
stperelyot7833
red-sun2
margo55577869