<Uzh.Soft/>

1. Sub Macro1()
2.  
3.     x = Cells(1, 2)
4.     y = Cells(2, 2)
5.     R = Cells(3, 2)
6.     flag = False
7.     If x ^ 2 + y ^ 2 <= R ^ 2 Then
8.         flag = True
9.     End If
10.  
11.     If flag Then
12.          MsgBox ("Точка M("  ... Читать дальше »

1. var i: integer;
2.     a:array[1..5]of integer;
3.  
4. begin
5.   for i:=1 to 5 do
6.   begin
7.      ... Читать дальше »

1. var a,b,i,h,f:real;
2.  
3. begin
4.   write('Введите числа a, b, h разделяя их пробелом: ');
5.  
6.   readln(a, b, h);
7.  
8.   i:=a;
9.   while (i<b) do
10.    ... Читать дальше »

1. var A,B,i: integer;
2.  
3. begin
4.   write('Введите два целых числа, разделяя их пробелом: ');
5.  
6.   readln(A, B);
7.  
8.   for i:=A to B do
9.     if i mod 2 <>&n ... Читать дальше »

1. program m1;
2.  
3. function cloneChar(s :string; count :integer) :string;
4. var i :integer;
5.     st :string;
6. begin
7.    st := '';
8.    for i:= 1 to count  ... Читать дальше »

1. using System;
2.  
3. namespace testS
4. {
5.     class Program
6.     {
7.         public static void Main(string[] args)
8.         {
9.             int count =  ... Читать дальше »

1. var i,count: integer;
2.  
3. begin
4.   for i:=1 to 99 do
5.     if i mod 6 = 4 then 
6.     begin
7.       writeln(i);
8.       inc( ... Читать дальше »

1. var i, n, count5, countb5: integer;
2.     B: array[1..100] of integer;
3. begin
4.   write('n = ');
5.   readln(n);
6.   count5:=0;
7.   countb5:=0 ... Читать дальше »

1. using System;
2.  
3. namespace testDate
4. {
5.     class Program
6.     {
7.         public static void Main(string[] args)
8.         {
9.             DateTime compareTo = DateTime.Parse( ... Читать дальше »

1. program a1;
2. var a,b,c: integer;
3.  
4. begin
5.   write('Введите три целых числа, разделяя их пробелом: ');
6.  
7.   readln(a,b,c);
8.   if((a+b>c) and (a+ ... Читать дальше »