4 года назад

Дані строкового типу вивести ім'я, по батькові і кількість букв в прізвищі паскаль

1 ответ:

Strelok7 [20]4 года назад

0 0

Можна так
var s,f,i:string;
begin
s:='Галкин Владислав Евгеньевич';
f:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
i:=copy(s,1,pos(' ',s)-1);
write('Фамилия - ',f,', кол-во букв в фамилии=',length(f)/2:1:0,'; Имя - ',i);
readln;
end.

Читайте также

В программе описан одномерный целостный массив А с индексами от 0 до 10. Ниже предоставлен фрагмент этой программы, в котором зн

Temger [7]

Ответ: 2) 1 2 3 4 5 6 7 8 9 10 0

0 0

4 года назад

1. Сколько единиц содержится в двоичной записи десятичного числа 124^10 ( в десятой степени) ? Напишите всё подробно пж а то воо

Ildar4ik14 [21]

Можно решить с помощью программы на Паскале.

Работа проверена в версии PascalABC.NET 3.4.2.1837 (12.10.2018)

var

a, x: BigInteger;

n: Integer;

begin

x := ReadInteger('введите основание степени');

a := x ** 10;

n := 0;

repeat

if (a mod 2) = 1 then

n += 1;

a := a div 2;

until a = 0;

writeln('количество единиц в двоичной записи = ', n);

end.

Результаты:

1) для 124^10 -содержится 24 единицы

2) для 252^10 -содержится 27 единиц

3) для 215^10 -содержится 33 единицы

0 0

4 года назад

сколько иероглифов в египетском письме

pavelduvanov

Иероглифы обозначали целые слова и слоги, их было более 750

0 0

4 года назад

Составить программу вычисления суммы цифр 5-значного числа вводимого с клавиатуры где N вводиться с клавиатуры

Натали Л [7]

Uses crt;
var s,i,x : integer;
begin

Read(x);
For i:=1 to 5 do begin
                   s:=s + (x mod 10);
                   x:=x div 10;
                 end;
Write (s);

end.

Язык - ПаскальABC
Если хочешь можешь еще сделать проверку на пятизначное число.

0 0

4 года назад

Записати мовою C ++ вирази

Илья ВитальевичР [20]

A)
#include <iostream> 
#include "math.h"
using namespace std;
int main()
{
const double Pi = 3.14;
double x,y;
 cin >> x;
 y=((2*pow(sin(x),2))/(Pi*x)-atan(x));
cout << y << endl;
}
б)
#include <iostream> 
#include <cmath>
double log(double a, double b)
{
return log(b) / log(a);
}
using namespace std;
int main()
{
double x,y;
cin >> x;
y=log(5,abs(x-12.5*pow(x,9))+((2*x-4)/(abs(pow(x,8)-12*pow(x,4)+5.1*pow(x,3)))));
cout << y << endl;
}

0 0

4 года назад