Напишите программу для решения задач используя div и mod 1.задано двухзначное число найдите среднее арифметическое цифр числа 2.
Напишите программу для решения задач используя div и mod 1.задано двухзначное число найдите среднее арифметическое цифр числа 2.задано двухзначное число найдите разность между количеством десятков и единиц 4.площадь участка измеряется в арах найдите количество полных км² *4.для старорусской системы весов известны следующие соотношения: 1 берковец=10 пудов=400 фунтов=38400 золотников напиши программу которая переводит массу заданную в золотниках в фунты пуды и берковцы
begin Write('Введите двухзначное число: '); Read(n); n:=Abs(n); { убираем минус, если он есть } Writeln('Среднее арифметическое цифр числа: ', (n div 10 + n mod 10)/2) end.
begin Write('Введите двухзначное число: '); Read(n); n:=Abs(n); { убираем минус, если он есть } Writeln('Разность количества десятков и единиц равна ',n div 10 - n mod 10) end.
<u>Пример</u> Введите двухзначное число: 38 Разность количества десятков и единиц равна -5
<u>№3</u>
var a:real;
begin Write('Площадь, ар: '); Read(a); Writeln('Полных кв.км: ',Trunc(a/10000)) end.
begin Write('Введите вес в золотниках: '); Read(z); kf:=z div 96; z:=z mod 96; kp:=kf div 40; kf:=kf mod 40; kb:=kp div 10; kp:=kp mod 10; Writeln('Это составит ',kb,' берковцев, ',kp,' пудов, ', kf,' фунтов, ',z,' золотников') end.
<u>Пример</u> Введите вес в золотниках: 374252 Это составит 9 берковцев, 7 пудов, 18 фунтов, 44 золотников
Дорожные знаки называют - международным языком улицы! гос.стандартом определены 4 группы дорожных знаков - предупреждающие, запрещающие, предписывающие и указательные!)
Var a,b,c:longint; Begin read(a,b,c); if c mod 2=1 then writeln('Нечетное') else writeln('Четное'); if ((c>=a) and (c<=b)) then writeln('YES') else writeln('NO'); <span>End.</span>
//Pascal ABC.NET v3.1 сборка 1219 //Как я понял, количество очков случайно
Var a,i,s:integer; begin randomize; for i:=1 to 5 do begin a:=random(11); writeln(i,' выстрел -',a); s:=s+a; end; writeln('Сумма=',s); if s=50 then writeln('Идет с Зиночкой в ресторан') else writeln('На тренировку в тир'); end.
Пример работы программы: 1 выстрел -3 2 выстрел -10 3 выстрел -7 4 выстрел -8 5 выстрел -0 Сумма=28 На тренировку в тир