Написать программы на языке Паскаль с условием.20 баллов
Answers & Comments
Hirakota
1. program list;var x,y,a,b:integer;beginwriteln('Введите размер листа x на y');readln(x,y);writeln('Введите размер изображения a на b');readln(a,b);if (x>a) and (y>b) thenwriteln('Можно разместить')elsewriteln('Нельзя разместить');end. 2. program opred;var i,n:integer; natch:string; cif: char;beginwrite('Введите натуральное число N: ');readln(natch);write('Введите цифру A: ');readln(cif);n:=length(natch);if natch[n]=cif then write('Верно')elsewriteln('Неверно');end. 3.program opred;var i,n,g,sum,max,kol:integer; chis: array[1..100] of integer;beginwriteln('Вводите числа: ');i:=0;repeat i:=i+1;readln(chis[i]);until(chis[i]=0);n:=i-1;for i:=1 to n do //asum:=sum+chis[i];writeln('a) sum = ',sum);for i:=1 to n do //bbeginif (chis[i]<0) and (chis[i] mod 2 = 0) thenkol:=kol+1;end;writeln('b) kol = ',kol);for i:=1 to n do beginif chis[i]>chis[i+1] thenmax:=chis[i];end;writeln('c) max = ',max);end.
Answers & Comments
program list;var x,y,a,b:integer;beginwriteln('Введите размер листа x на y');readln(x,y);writeln('Введите размер изображения a на b');readln(a,b);if (x>a) and (y>b) thenwriteln('Можно разместить')elsewriteln('Нельзя разместить');end.
2.
program opred;var i,n:integer; natch:string; cif: char;beginwrite('Введите натуральное число N: ');readln(natch);write('Введите цифру A: ');readln(cif);n:=length(natch);if natch[n]=cif then write('Верно')elsewriteln('Неверно');end.
3.program opred;var i,n,g,sum,max,kol:integer; chis: array[1..100] of integer;beginwriteln('Вводите числа: ');i:=0;repeat i:=i+1;readln(chis[i]);until(chis[i]=0);n:=i-1;for i:=1 to n do //asum:=sum+chis[i];writeln('a) sum = ',sum);for i:=1 to n do //bbeginif (chis[i]<0) and (chis[i] mod 2 = 0) thenkol:=kol+1;end;writeln('b) kol = ',kol);for i:=1 to n do beginif chis[i]>chis[i+1] thenmax:=chis[i];end;writeln('c) max = ',max);end.