profile
Размещено 5 лет назад по предмету Информатика от Irinka1498

Ребяяяяттт, помогите срочно ,пожалуйста!!!!!
Вопрос жизни и смерти, если не сделаю ,информатичка прикончит прямо в классе!!! Спасите ,плиз!!!
Все это в Паскале

  1. Ответ на вопрос
    Ответ на вопрос дан Sho0oTeR
    1)Program z1;
    var N,a,b,c,d,e,f:integer;
    begin
    Write('Введите четырёхзначное число: '); read(N);
    a:=N div 1000;
    b:=(N mod 1000) div 100;
    c:=(N mod 100) div 10;
    d:=N mod 10;
    e:=a+b+c+d;
    f:=e mod 10;
    if (f=5) or (f=0) then Writeln('Сумма цифр числа кратна 5')
    else Writeln('Сумма цифр числа не кратна 5');
    end.
    2)Program z2;
    var a,b,c,d:integer;
    begin
    Write('Введите числа: '); 
    Write('a = '); read(a);
    Write('b = '); read(b);
    Write('c = '); read(c);
    if (a>0) then a:=1;
    if (b>0) then b:=1; 
    if (c>0) then c:=1;
    d:=a+b+c;
    writeln('Положительных чисел: ',d);
    end. 
    3)Program z3;
    var x,y:integer;
    begin
    Writeln('Введите координаты:');
    Write('x = '); read(x);
    Write('y = '); read(y);
    if (-5<x) and (x<5) and (-5<y) and (y<5) then Writeln('Попал')
    else Writeln('Не попал');
    end.
    4)
    Program z4;
    var m,n:integer;
    begin
    Write('Введите номер месяца: '); read (m);
    n:=m+1;
    case n of
    1: write ('Февраль');
    2: write ('Март');
    3: write ('Апрель');
    4: write ('Май');
    5: write ('Июнь');
    6: write ('Июль');
    7: write ('Август');
    8: write ('Сентябрь');
    9: write ('Октябрь');
    10: write ('Ноябрь');
    11: write ('Декабрь');
    12: write ('Январь');
    end;
    end.
    1. Ответ на вопрос
      Ответ на вопрос дан Irinka1498
      Спасибо тебе, добрый человек!!!))))
    2. Ответ на вопрос
      Ответ на вопрос дан Sho0oTeR
      Да не за что) Добавил решение второй задачи :3
    3. Ответ на вопрос
      Ответ на вопрос дан Irinka1498
      Благодарю за спасенную жизнь))))
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.