Program z1;
uses GraphABC;
begin
setpencolor(clgreen);
line(30,50,60,20);
line(60,20,90,50);
line(90,50,30,50);
line(30,80,60,50);
line(60,50,90,80);
line(90,80,30,80);
line(30,110,60,80);
line(60,80,90,110);
line(90,110,30,110);
floodfill(60,40,clgreen);
floodfill(60,70,clgreen);
floodfill(60,100,clgreen);
end.
КвКор С/П
Ввод: y С/П. Значение x на индикаторе.
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
write(max(ReadInteger,ReadInteger));
end.
#include <iostream>#include <stdio.h>#include <stdlib.h>#include <locale.h>#include <math.h>using namespace std;/* run this program using the console pauser or add your own getch, system("pause") or input loop */
int main(int argc, char** argv) { setlocale(LC_ALL,"rus"); cout<<"f(x) = x^2"<<endl; for(int i=1 ; i<10 ; i++) { cout<<"Äëÿ x = "<<i<<", f(x) = "<<pow(i,2)<<";\n"; } return 0;}