4 года назад

Составить программу вычисляющую количество букв в слове каникулы

1 ответ:

sergey 19804 года назад

0 0

Вот каникулы у дома, завтра будет хромосома, я упал, меня подняли, подлетел, меня сломали, я иду домой больной, больно, твари, уйди вон, баба Нюра у калитки , внук иди сюда, гавнинка, что ты сделал, с тёткой светкой, ты её побил, макеткой, нет бабуль, били меня, македонцы со двора

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

Паскаль. Можно ли как-то модернизировать программу (именно модернизировать), чтобы можно было работать и с 10+ СС? Например, вво

Ingalace

Можно сделать, например, так (но это всё равно очень-очень корявый вариант):
const s='ABCDEF';
var x:string;
t:real;
a,i,n,q:integer;
begin
readln(x);
readln(q);
t:=0;
n:=length(x);
for i:=1 to n do
begin
case x[i] of
'0'..'9' : a:=strtoint(x[i]);
'A'..'F' : a:=pos(x[i],s)+9;
end;
n:=n-1;
t:=t+a*power(q,n);
end;
writeln(t);
end.

0 0

4 года назад

Дано натуральное число n.Написать программу,выводящую на экран первые n нечётных чисел

Е В Уся

Можно ещё проверять четность, но этот способ будет проще:
#include <iostream>
#include <stdlib.h>

using namespace std;

int main()
{
int n;
cin >> n;

for(int i = 1; i <= n; i += 2)
{
cout << i << endl;
}
system("pause");
return 0;
}

0 0

3 года назад

Люди используют мобильный телефон, чтобы:

vladila

Чтобы:звонить родным,общаться,играть в мобильные игры,читать новости,проверять информацию

0 0

3 года назад

Катя, Белла, Юля и Вика заняли первые места на конкурсе компьютерного рисунка. Известно, что Катя ни первая, ни последняя, Белла

polina0000

Катя-3
белла-2
вика-1
юля-4

0 0

4 года назад

Паскаль АВС составить программу, которая создает массив случайных чисел размером (N x M), выводит его на экран и вычисляет произ

ЕленаКов

Program asd;
Const n=5;
   m=4;
Var i,j,p:integer;
A:array[1..n,1..m] of integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to m do
begin
A[i,j]:=Random(10);
Write(A[i,j]:3);
end;
Writeln;
end;
P:=1;
For i:=1 to n do
For j:=1 to m do
begin
if A[i,j]<>0 then p:=p*A[i,j];
end;
Writeln('Произведение ненулевых элементов массива: ',p);
<span>END.</span>

0 0

4 года назад