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

Один стакан лимонада содержит 15 калорий, 1 кусок торта - 150 калорий, 1 драже "тик-так"- 2 калории. во время праздничного обеда буратино выпил 5 стаканов лимонада, съел 20 драже "тик-так" и 4 куска торта. мальвина съела 2 драже "тик-так",
1 кусок торта и выпила 1 стакан лимонада. пьеро выпил 2 стакана лимонада и съел 2 куска торта. дуремар съел 3 куска торта и выпил 2 стакана лимонада. построить электронную таблицу, из которой будет видно: сколько всего стаканов
лимонада было выпито, кусков торта и драже "тик-так" съедено; сколько калорий употребил каждый участник праздничного обеда; сколько калорий содержалось во всем выпитом лимонаде, всех съеденных кусках торта и драже "тик-так".

👇
Ответ:
baandas
baandas
02.02.2021

......................


Один стакан лимонада содержит 15 калорий, 1 кусок торта - 150 калорий, 1 драже
4,4(11 оценок)
Открыть все ответы
Ответ:
Danil24052002
Danil24052002
02.02.2021
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var k:=ReadInteger('Начальное значение (К):');
  var n:=ReadInteger(' Конечное значение (N):');
  var notfound:=True;
  for var i:=k to n do begin
    var flag:=True;
    var j:=2;
    var r:=round(sqrt(i));
    while flag and (j<=r) do
      if i mod j = 0 then flag:=false
      else j+=1;
    if flag then begin
      var s:=i.ToString;
      if s=s.Inverse then begin Print(i); notfound:=False end
      end
    end;
    if notfound then Writeln(0)
end.

Пример
Начальное значение (К): 2
 Конечное значение (N): 100000
2 3 5 7 11 101 131 151 181 191 313 353 373 383 727 757 787 797 919 929 10301 10501 10601 11311 11411 12421 12721 12821 13331 13831 13931 14341 14741 15451 15551 16061 16361 16561 16661 17471 17971 18181 18481 19391 19891 19991 30103 30203 30403 30703 30803 31013 31513 32323 32423 33533 34543 34843 35053 35153 35353 35753 36263 36563 37273 37573 38083 38183 38783 39293 70207 70507 70607 71317 71917 72227 72727 73037 73237 73637 74047 74747 75557 76367 76667 77377 77477 77977 78487 78787 78887 79397 79697 79997 90709 91019 93139 93239 93739 94049 94349 94649 94849 94949 95959 96269 96469 96769 97379 97579 97879 98389 98689
4,7(60 оценок)
Ответ:
VladGulevevatiy
VladGulevevatiy
02.02.2021
//PascalABC.NET 3.2 сборка 1318

uses
  system;

type
  animal=record
    ani:string;
    name:string;
    yearOfBrith:integer;
    weight:real;
    food:real;
    country:string;
end;

    Const
  n=10;
 Var
  zoo:array[1..n] of animal;
  i,counter:integer;
  coun:string;
begin
for i:=1 to n do
  begin
    writeln('Данные о животном #',i);
    readln(zoo[i].ani);
    readln(zoo[i].name);
    readln(zoo[i].yearOfBrith);
    readln(zoo[i].weight);
    readln(zoo[i].food);
    readln(zoo[i].country);
  end;
write('Введите страну:');
readln(coun);
for i:=1 to n do
if zoo[i].country=coun then inc(counter);
writeln(counter);
writeln('Таблица норм пищи:');
for i:=1 to n do
writeln(zoo[i].name,':',zoo[i].weight*zoo[i].food);
writeln('Список животных, возраст которых больше 10 ');
for i:=1 to n do
if DateTime.Now.Year-zoo[i].yearOfBrith>10 then writeln(zoo[i].name);
end.
4,5(34 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ