S = a * b; P = (a + b) * 2; printf ("Площадь - %d \n Периметр - %d \n", S, P); if (S > P) printf ("Площадь больше периметра\n"); else printf("Периметр больше площади\n");
var i, j: integer; a, b: array[1..n, 1..m] of integer;
begin for i := 1 to n do begin for j := 1 to m do begin a[i, j] := random(20) - 10; write(a[i, j]:3, ' '); end; writeln; end; writeln;
for i := 1 to n do begin for j := 1 to m do begin if ((i + j) mod 2 = 1) and (a[i, j] < 0) then a[i, j] := sqr(a[i, j]); write(a[i, j]:4, ' '); end; writeln; end; end.
// PascalABC.NET 3.1, сборка 1246 от 23.05.2016 begin var s:=ReadAllLines('1.txt'); Writeln('Считано:'); s.Println(NewLine); var a:=s.Select(x->x.Replace(';',' ')).ToArray .JoinIntoString.ToReals.Where(x->(x>0) and (Frac(x)=0)) .Select(x->Trunc(x)).ToArray; Writeln('Получено:'); a.Println(); Writeln('Справочно: тип А - ',a.GetType); end.
Тестовое решение Считано: 1;-312;-41.11;412.11 43.63;-15;27;7.62;3;-14 1342;23.23;-32.19;18 Получено: 1 27 3 1342 18 Справочно: тип А - System.Int32[]
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <locale.h>
int main() {
setlocale (LC_ALL, "RUS");
int a, b, S, P;
printf("Введите длину прямоугольника: ");
scanf ("%d", &a);
printf("Введите ширину прямоугольника: ");
scanf ("%d", &b);
S = a * b; P = (a + b) * 2;
printf ("Площадь - %d \n Периметр - %d \n", S, P);
if (S > P)
printf ("Площадь больше периметра\n");
else
printf("Периметр больше площади\n");
system ("pause");
return 0;
}