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

Решить .. 1. у тани было n (n> 0) палочек.она разломала одну из них на 4 куска. сколько теперь у неё палочек? 2. в n году ежегодная олимпиада по информатике среди учеников 1-8 классов проводится в беларуси уже m раз. в каком году была проведена первая олимпиада? 3. пятачок посадил n1 семечек. из всех семечек, кроме n2, выросли яблони. на всех яблонях, кроме n3, растут яблоки. яблоки со всех плодоносящих яблонь, кроме n4,-невкусные. значит, число яблонь с невкусными яблоками равно k. 4. пример ввода - 1,7 пример ввода - 6,3 пример вывода - round (1,7) =2 пример вывода - round (6,3)=6

👇
Ответ:
PomogyBratan
PomogyBratan
31.01.2021
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;
begin
a:=2015;
writeln('Сколько лет проводится олимпиада?');
readln(b);
a:=a-b;
writeln('Первая олимпиада была проведена в ',a,' году.');
readln;
end.

Program schet;
var a,b,c,i:integer;
begin
writeln('Сколько семечек посадил Пятачок?');
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;
begin
writeln('Введите число, которое нужно округлить:');
readln(a);
a:=round(a);
writeln('ответ после округления: ',a);
readln;
end.
4,6(22 оценок)
Открыть все ответы
Ответ:
Pantiik
Pantiik
31.01.2021
Я уже сделал на паскале
Ладно пусть будет...
var
a: array[1..10] of integer;
i,j,k,sum,d:integer;
h:real;
begin
d:=0;
    for i:=1 to 10 do
        for j:=1 to 5 do
            begin
                readln(a[j]);
                if j=5 then
                    begin
                    sum:=0;
                        for k:=1 to 5 do
                            sum:=sum+a[j];
                    h:=sum/5;
                    writeln(h:0:0); // Если нужно точное значение, поменяйте последний 0 на 2
                    if h<7 then inc(d)
                    end;
            end;
    write(d, ' учеников - имеют средний ниже среднего');
end.

Эксель скинул
4,8(13 оценок)
Ответ:
АгентК
АгентК
31.01.2021
1) var z:array[1..30] of integer; i,max,min,s:integer;
begin
for i:=1 to 30 do 
z[i]:=random(100);
max:=z[1];min:=z[1];
for i:=1 to 30 do   
if z[i]>max then max:=z[i];
for i:=1 to 30 do   
if z[i]<min then min:=z[i];
for i:=1 to 30 do
 if z[i]<((max+min)/2) then s:=s+z[i];
write('S= ',s);
end.
2)var m:array[1..30] of integer; i,max,s:integer; z:real;
begin
for i:=1 to 30 do m[i]:=random(100);
max:=m[1];
for i:=1 to 30 do  
if m[i]>max then max:=m[i];
for i:=1 to 30 do  
if  m[i]>0 then s:=s+m[i];
z:=(S+max)/3;
write('Z= ',z:0:0);
end.
4,7(67 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ