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

1. определить значение переменной а после выполнения оператора x: =5; if x> -3 then a: =x mod 2 else a: =abs(x); 2. определить значение переменной а после выполнения оператора x: =-26; y: =6; if x div y=4 then a: =x mod y else a: =x*y; 3. чему будут равны значения переменных к и м после выполнения фрагмента программы : a: =-3; k: =30; m=15; if k> m then begin a: a+1; m: =m-a end else begin k: =m/k end; 4.чему будут равны значения переменных к и м после выполнения фрагмента программы : a: =2; k: =-5; m: =-20; if(a> k) or (a> m) then begin a: =a+1; m: =m-a end; else begin k: =k+1; m: =m/k end; k: =k*2; m: =m+a; 5.определить значение переменной а после выполнения оператора a: =4 div 5; x: =5; if x=0 then a: =8 mod a else if x> a then a: =x div (a+1);

👇
Ответ:
khursin03
khursin03
25.04.2022
1 - 1
2 - 6
3 - K=30 M=17
4 - K=-10 M=-20
5 - 5
4,6(71 оценок)
Открыть все ответы
Ответ:
Cat4ik
Cat4ik
25.04.2022
На PascalABC.NET


program aaa;
const n=50;
var w, c, x, d10, d4, d1: integer; 
begin 
  writeln ('Введите вес бандероли');
  readln (w);
  if w <= n
    then c:=10
    else  
       if w mod n = 0
          then c:=10+((w div n)-1)*5
          else c:=10+5+((w div n)-1)*5;
 
  d10:= c div 10;
  d4:= (c-10*d10) div 4;
  d1:= (c-d10*10-d4*4);
 
  writeln ('стоимость бандероли: ',c,' драхм');
  writeln;
  writeln ('для оплаты нужно не менее');
  writeln (d10:10,' монет по 10 драхм');
  writeln (d4:10,' монет по 4 драхмы');
  writeln (d1:10,' монет по 1 драхме');
end.    


Результат работы программы:

Введите вес бандероли     100

стоимость бандероли: 15 драхм

для оплаты нужно не менее
          1 монет по 10 драхм
          1 монет по 4 драхмы
          1 монет по 1 драхме
4,7(55 оценок)
Ответ:
PavelOlga
PavelOlga
25.04.2022
//я писал этот унылый код полтора часа. Полтора часа, Карл! Я слишком расслабился.
#include <iostream>
using namespace std;
int k=2;

bool StrangeSeq(int n){
     if (k<n){
              if(n%k==0){
                         cout<<"false";
                         return false;
                         }
                         k++;
                         StrangeSeq(n);
                         }
                         else
                         {
                             cout<<"true";
                             return true;
                             }
}
                
int main(){
    int n;
    cin>>n;
    StrangeSeq(n);
    cin.get();
    cin.get();
}
4,4(94 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ