program z1; uses crt; var n: integer; i: integer; begin write(' введите n : '); readln(n); for i : = 1 to n do begin writeln(' число: ',i,' степень: ', i *i); end; end.
си
откомпилирован: (dev cpp)
#include < stdio.h> #include < stdlib.h> #include < conio.h> #include < math.h> int main(){ int n = 0; printf("\n vvedite n: "); scanf("%d", & n); printf("\n chislo | stepen"); for(int i = 1; i < n; i++) { printf("\n %5d |%5d ", i, i * i); } getch( ); return 0; }
Ответ дал: Гость
#include < cstdlib> #include < iostream> using namespace std; int main(int argc, char *argv[]){ int n; cout< < "введите количество элементов массива."< < endl; cin> > n; int mas1[n]; int mas2[n]; for(int i=0; i< n; i++){ mas1[i] = rand()%100; //заполняем массив случайными числами от 0 до 100 if(mas1[i]%10 == 4) { mas2[i]=mas1[i]/2; cout< < "замена! "; } else {cout< < "\t"; mas2[i]=mas1[i]; } cout< < mas1[i]< < '\t'< < mas2[i]< < endl; } system("pause"); return exit_success; }
Ответ дал: Гость
файл с исходным текстом программы на паскале должен иметь расширение pas.
Ответ дал: Гость
1)
uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =70; r: =25; for i : = 1 to 7 do circle(x,y+i*60,r); end.
2)
uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =20; r: =30; for i : = 1 to 5 do circle(x+i*70,y+i*70,r); end.
3)
uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =70; x: =30; r: =60; for i : = 1 to 5 do circle(x+i*60,y,r); end.
Популярные вопросы