Дополните таблицу таким образом, чтобы в ней можно было организовать вычисления общей площади наших лесов. Выполните соответствующие вычисления.И сделать круговую диограмму,
208
252
Ответы на вопрос:
Program schet; var a: integer; label h; begin h: begin writeln('введите количество палочек: '); readln(a); if (a< =0) then goto h else a: =a+3; writeln('у тани стало ', a, ' палочек'); end; readln; end.program schet; var a,b: integer; begina: =2015; writeln('сколько лет проводится олимпиада? '); readln(b); a: =a-b; writeln('первая олимпиада была проведена в ',a,' году.'); readln; end.program schet; var a,b,c,i: integer; beginwriteln('сколько семечек посадил пятачок? '); readln(a); writeln('сколько семечек не выросло? '); readln(b); a: =a-b; writeln('сколько не плодоносных яблонь? '); readln(c); a: =a-c; writeln('на скольки яблонях вкусные яблоки? '); readln(i); a: =a-i; if (a< 0) then writeln('выросло 0 яблонь с невкусными яблоками.')else writeln('выросло ',a,' яблонь с невкусными яблоками.'); readln; end.program schet; var a: real; beginwriteln('введите число, которое нужно округлить: '); readln(a); a: =round(a); writeln('ответ после округления: ',a); readln; end.
Популярно: Информатика
-
arsen2017122.02.2021 03:46
-
basgal6706.01.2022 05:00
-
yurinskayat125.01.2023 22:15
-
Артем22221126.02.2020 13:21
-
maxfum25.06.2022 01:49
-
dima01200218.09.2020 09:55
-
алинкажемчуг25.01.2023 22:55
-
egoyan22230.03.2023 16:52
-
timondrob06.01.2022 10:00
-
Aleksey31126.05.2020 15:59