М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
кроп1
кроп1
01.03.2022 12:19 •  Информатика

Pascal доработать программу program DemoWriteln; {Программа вычисляет и выводит площадь прямоугольника}
var
A, B, S : integer; {A, B – длина сторон, S – площадь}
begin
A := 8; {А присвоить 8}
B := 4; {B присвоить 4}
S := A * B;
writeln(''); {всего 40}
writeln(': Сторона A : Сторона B : Площадь : Периметр :');
writeln('');
writeln(':', A : 7, B : 11, S : 11, ':':5);
writeln('');
readln;
readln
end.

после расчета площади прямоугольника добавить вычисление периметра прямоугольника;
вместо операторов присвоения значений величинам A и B, выполнить приглашение для ввода и ввод значений этих переменных. Приглашение для ввода оформляется следующим образом:
writeln (‘Введите A’);
Ввод значений оформляется оператором readln;
составить блок-схему алгоритма, который реализован данной программой с учетом внесенных изменений

👇
Ответ:
Вано137
Вано137
01.03.2022

program DemoWriteln; {Программа вычисляет и выводит площадь прямоугольника}

var

A, B, S, P : integer; {A, B – длина сторон, S – площадь, P - периметр}

begin

writeln('Введите A ');

readln(A);  

writeln('Введите B ');

readln(B);  

S := A * B;

P := 2 * (A + B);

writeln(''); {всего 33}

writeln(': Сторона A : Сторона B : Площадь : Периметр :');

writeln('');

writeln(':', A : 7, ':':5, B : 7, ':':5, S : 5, ':':5, P : 6, ':':5);

writeln('');

readln;

end.

Объяснение:

4,4(42 оценок)
Открыть все ответы
Ответ:
Viviccompany
Viviccompany
01.03.2022
Код: 1) program Mas; var i,ne,ch,n:integer; a:array [1..1000] of integer; begin read(n); randomize; for i:=1 to n do begin a[i]:=random(80)+21;write(a[i],' ');//Распечатка массива, увидешь правильно ли программа выполняет функци                         end; for i:=1 to n do begin if a[i] mod 2=0 then ch:=ch+1 else ne:=ne+1; end;writeln; writeln('Нечетные=',Ne); writeln('Четные=',Ch); end. 2)const n = 10; var A: array [ 1 .. n ] of integer; i, znachenie, count: integer; sred_arifm, sum: real; begin for i:=1 to n do begin write('a[,'i,']=');readln(a[i]); end; write('Введите значение:');readln(znachenie); sum:=0;count:=0; for i:=1 to n do if a[i] > znachenie then begin inc(count); sum:=sum+a[i]; end; sred_arifm:=sum/count; write('Среднее арифметическое ... =',sred_arifm:3:2); end.
4,8(42 оценок)
Ответ:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

#include<windows.h>

#include<iostream.h>

#include<stdlib.h>

#include<conio.h>

#include<stdio.h>

#include<string.h>

int main()

{

   SetConsoleOutputCP(1251);

   char text[1000],p,r[]=" ,._-!?\"';:()";

   char T[][33] =  

{

{'а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ы','ь','э','ю','я'},

{'А','Б','В','Г','Д','Е','Ё','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я'}

};

   int i,q,j;

   char d,sLen;

   cout<<"Введите строку:"<<endl;

   /*gets(s);

   d=strlen(s);

   p=s[1];

   for(i=2;i<d;i++)

       if(strrchr(s[i],p)==0)

           p=s[i]+p;*/

   while(gets(text)!=NULL)

{

sLen = strlen(text);

for(i = 1; i < (sLen-1); i++){

 

if(text[i-1]=='.'){

for(i = 1; i < (sLen-1); i++){

 

{

for(j = 0; j < 33; j++) for(i = 0; i < 2; i++)

if(text[i] == T[i][j]) ;}}

cout<<text<<endl;

if(q==1) printf("%s\n", text);

 

   cout<<p<<endl;

   return 0;

Объяснение:

4,7(73 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ